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Zima. Święta, koniec rokit. Co przyniesie na¬ 
stępny? Czy będzie łaskawy dla naszego kom 
putera? A dla nas? Wierzę, ze lak! Przecież 
komputer to tylko garść przewodników i pół¬ 
przewodników. Tym. co go ożywia. Jest mysi lu¬ 
dzka. a la pr/.eciez nie cała odlatuje 
do cie płyc h kra jów. 


Niedźwiedzie śpią głębokim snem w swych 
gawrach, śnieg okrył wszystko i wszystkich. 
Szron osiada na drutach wysokiego napięcia. 
Porażone nieoczekiwanym stopniem zasilania 
zamarły strategiczne superkomputery wojsko¬ 
we. drzemią zachłanne elektronowe liczydła 
bankowe, śniąc o niekończącym się szeregu 
sald i odsetek, chrapia maszyny w instytutach 
naukowych, zmęczone zadaniami ponad tch si¬ 
ły... I tylko małe. pełne wigoru Atarynkl wiercą 
się niecierpliwie w pobliżu wigilijnego stołu, 
nucąc pod nosem kolędę spoglądają ukradkiem 
przez okno w tx;zekiwanlu na plerws ą 
gwiazdkę. 


Stary, zramolaly rok odchodzi, a na jego 
miejsce przybywa rozkoszny bobasek, pełen 
wzniosłych planów, pochopnych obiecnic i płoń- i 
nych nadziei. I lak kręci się odwieczna karuze¬ 
la pod zimnymi gwiazdami nieskończonego 
wszechświata. 
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Świąt radosnych, dostatnich i wesołych. 
Nowego Roku pomyślnego i jeszcze 
szczęśliwszego niż poprzedni (choć nieco 
mniej niż następny) w imieniu całego 
zespołu redakcyjnego TA życzy Państwu 
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Bardzo Ciekawe Dane 

Prawdziwi Programiści pogardza¬ 
ją liczbami BCD Wszak kompulcry 
myślą dwójkowo, czyz to nie wy¬ 
starczający argument? Kod BCD 
został stworzony specjalnie dla 
maminsynków, którzy nie mają 
dość rozumu, żeby się nauczyć my¬ 
śleć Jak komputer.,, 

A teraz poważnie. BCD. czyli licz¬ 
by dziesiętne kodowane dwójkowo 
(Binary Coded Dceimal). stanowią 
pomost, ogniwo pośrednie między 
wewnętrzną reprezentacją liczb 
w komputerze, a postacią, w jakiej 
zwykli śmiertelnicy wolą oglądać 
liczby ciągiem cyfr dziesiętnych 
Liczba wyświetlona na ekranie lub 
wydrukowana na papierze składa 
się z cyfr. będących znakami z ze¬ 
stawu ASCII Dla sterownika obra 
zu czy dla drukarki nie ma przy 
lym rozro/nlenla między literami, 
cyframi i innymi znaezkami-dziwa- 
czkaml Każdy Jest po prostu ja 
kimś zestawem ośmiu bitów, czyli 
bajtem Wyobraźmy sobie Jednak, 
że wyświetlamy (drukujemy) TYL 
KO liczby dodatnie Przyjrzyjmy się 
kodom potrzebnych znaków 

' 0 ' = %00110000 
'1' = 400110001 
'2' = 400110010 
'3' = 400110011 
•A' = 400110100 
'5' = 400110101 
'6' = 400110110 
'7' = 400110111 
'8' = 400111000 
'9' = 400111001 

Wyraźnie, widać, że cztery starsze 
bity są zawsze takie same A zatem 
w przypadku przeć howywania w pa 
mięci danych tego typu połowa Infor¬ 
macji Jest zupełnie zbędna Do 
zidentylikowanta znaku o którym 
wiemy, że Jest cyfrą dziesiętną, wy¬ 
starczą cztery btly Więc może by tak 
umieścić po dwie cylry w każdym 
bajcie''’ Wtedy np, 

'17' = 400010111 
'46' = 401000110 
'92' = 410010010 

lid 


Na zapisanie liczby 1993 potrzeba 
tylko dwóch bajiow- 

'1993' = 40001100110010011 

Taką konwencję zapisu liczb dzie¬ 
siętnych nazywamy właśnie BCD. 

W tym miejscu warto uczynić dwa 
ważne spostrzeżenia. 

• Nie wszystkie możliwe kombina¬ 
cje czterech bitów są wykorzy¬ 
stane (dozwolone) Wskutek te¬ 
go "gęstosć zapisu" liczb w pa 
mięci Jest w tym systemie mniej 
sza niż przy naturalnym dla 
komputera, dwójkowym sposo¬ 
bie Jeden bajt BCD może prze¬ 
chować liczbę od 0 do 99 (dwój¬ 
kowo od 0 do 255), 

• Wartość liczby odczytanej z. baj tu 
będzie rożna w zależności od spo 
sobu interpretacji Przykład 
%010001 10 oznacza binarne 70. 
a tylko 46 w BCD. z kolei 64 zapi 
sujc się dwojkowo jako 
%01000000 a w BCD Jako 
%01100100 

Po co tyle zamętu? 

Dani w formacie BCD są bardzo 
łatwe do prezentacji wizualnej (za 
miany na cyfry ASCII) Wystarczy 
podzielić bajt na połowki do każ¬ 
dej doczepie cztery bity wzięte np 
z. cylry 0' i gotowe Natomiast dane 
dwójkowe są trudne do prezentacji 
w lormle dziesiętnej 1 najczęściej 
przekształca się Je w celu wyświet¬ 
lenia właśnie do formatu BCD. co 
nie jest łatwe 1 zajmuje masę cza 
su. Dlatego, o tle inne względy nie 
przemawiają przeciwko temu wy¬ 
godnie Jest przeć howywać liczby 
w postaci BCD Prosta procedura 
wyświetlająca inhalszą cyfrę BCD 
może wyglądać lak 

SAVMSC EQU 88 

DISP_1 AND #400001111 
ORA #'0'-32 
STA (SAVMSC),Y 
DEY 
RTS 

Aby nie zaciemniać algorytmu do¬ 
datkowymi zabiegami wyświetlamy 
cyfrę w pobliżu początku pamięci 
obrazu (wektor SAVMSC). Odjęcie 


liczby 32 ixl kodu 0' Jest najpro¬ 
stszym sposobem zamiany z ASCII 
na kcxl ANTIC-a Przed wywołaniem 
procedury należy oczywiście umie¬ 
ścił- stosowna Iirzłię w akumulatorze 
I zainicjować rejestr Y Zmniejszenie 
wartości tego rejestru po wyświetle¬ 
niu cyfry ma iakt skutek, ze kolejne 
wywołania procedury D1SP I łiędą 
umieszczał następne eyiry na lewo 
od poprzednich Wyświetlenie całego 
baj tu. czyli dwóch cyfr BCD' 

DISP 2 PHA 

JSR DISP_1 

PLA 

LSR § 

LSR § 

LSR § 

LSR @ 

JSR DISP_1 
RTS 

Pierwsze wywołanie DISP 1 wy¬ 
świetla młodszą cyfrę, alt niszczy przy 
tym starszą, stąd konieczność prze¬ 
chowania bajiu na stosie. Przesunięcie 
bitów o cztery pozycje w prawo sprawi, 
ze za drugim razem starsza cyfra znaj¬ 
dzie się na miejscu inhxlszej 

Zwolennicy upraszczania zauwazą za¬ 
pewne ze można zamienić sekwencję 
JSR DISP_1 RTS na równoważny jej 
rozkaz JMP DISP_1 Rozkaz ten z kolei 
można całkowici! pominąć. Jeżeli umie¬ 
ści się procedurę DISP_2 bezpośrednio 
przed D!SP_1 Komu się to jednak wy¬ 
daje zbyt skomplikowane niech lepiej 
zaniecha tych uproszczeń 

Aby zadeklarować dane typu BCD 
(asemblery na ogół nie olerują dla 
nich osobnegti formatu) Ir/eba po¬ 
służyć się pros(ą sz(u< zką Nale/y 
sastosowae (rył) szesnastkowy z tym 
zastrzeżeniem, ze używa się tylko 
cyfr od ’0' do '9' A więc liczbę 1956 
zapiszemy jako 

YEAR DTA A($1956) 

Wyświetlenie (akicj liczby jest 
łatwe i przyjemne 

LEN EQU 2 

DISP Y LDX #0 

LDY #5 

DSP LDA YEAR,X 

JSR DISP_2 
INX 

CPX #LEN 
BCC DSP 
RTS 

Jak łatwo zauważyć, nie nakłada 
się iu żadnego ograniczenia na dłu 
gość liczby może ona zajmować do¬ 
wolnie wiele kolejnych bajiow W na¬ 
szym przypadku są dwa. odlicza je 
rejestr X. 
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Arytmetyka BCD 

Liczby dwójkowe podlegają ści¬ 
słym prawom, w myśl których 

%00001001 
+ %00000001 
» %00001010 

czyli szesnastkowo: $09 + $01 
= $0A (dziesiętnie: 9 + 1 = 10). 
W przypadku cyfr BCD dla osiągnię¬ 
cia poprawnego rezultatu chciałoby 
się, zęby 

%00001001 
+ %00000001 
= %00010000 

a więc szesnastkowo: 609 + $01 
= $10 (dziesiętnie 9 + 1 = 16). Aby 
zmusić nasz procesor do dodawania 
w tak niezwykły sposób, należy usta¬ 
wić znacznik D. Spróbuj zasemblo- 
wać 1 wykonać: 

SED 

CLC 

LDA #%1001 
ADC #%0001 
CLD 
BEK 

i zaobserwuj wynik. Pod wpływem 
znacznika D dodawanie przebiega 
zgodnie z regułami BCD. przepełnie¬ 
nie ponad 9 powoduje przeniesienie 
"jedynki z młodszej połowki bajtu do 
starszej, ze starszej zaś - do znacz¬ 
nika C Pamiętaj, ze znacznik D ma 
wpływ wyłącznie na rozkazy ADC 
i SBC. zaś inne (Jak INC. DEC) mu 
nic ulegają Istnieje zdrowy /.Wyczaj 
włączania trybu dziesiętnego TYLKO 
na czas wykonywania operacji na 
liczbach BCD. natychmiast polem 
należy go wyłączyć (rozkazem CLD). 
aby zapobiec nieporozumieniom 
w czasie przyszłych rachunków 

Konwersja liczby 
dwójkowej na BCD 

Często, gdy zachodzi potrzeba wy¬ 
świetlenia liczby, stajemy przed ko¬ 
niecznością Jej zamiany z postaci bi¬ 
narnej na BCD. Typowym przykła¬ 
dem Jest kod błędu, zwracany przez 
procedury we/wy w rejestrze Y. 

BYTE EQU $CB 
WORD EQU $CC 

STY BYTE 
JSR CONVR 
LDY #5 
LDA WORD 
JSR DISP_2 
LDA WORD+1 
JSR DISP_1 

Przepisujemy kod błędu do ko¬ 
mórki BYTE. procedura konwersji 
umieszcza kod W słowie WORD. Po¬ 


nieważ liczba z zakresu 0..255 jest 
co najwyżej trzycyfrowa, wywołuje 
się najpierw wyświetlenie dwu cyfr, 
a z drugiego bajtu - Jednej. Proce¬ 
dura konwersji może mleć taką po¬ 
stać: 

CONVR LDA #0 

STA WORD 
STA WORD+1 
LDX #8 
SED 

CV1 ASL BYTE 
LDA WORD 
ADC WORD 
STA WORD 
ROL WORD+1 
DEX 

BNE CV1 

CLD 

RTS 

Zastosowana tu metoda polega 
na "przelewaniu bitów" z liczby bi¬ 
narnej do liczby w formacie BCD 
Wychodzące w wyniku ASL (ten 
rozkaz działa ZAWSZE binarnie) 
bity "chwyta" się za pomocą znacz¬ 
nika C do tworzonego słowa 
WORD. gdzie kolejne mnożenia 
przez 2 (za pomocą dodawania 
w trybie BCD) nadadzą lm właści¬ 
wą wartość. Przykładowo, bit 
7 z bajtu BYTE wejdzie w pier¬ 
wszym obiegu pętli Jako 1 (lub 0) 
do słowa WORD. W wyniku pozo¬ 
stałych siedmiu mnożeń będzie po 
mnożony przez 128, czyli osiągnie 
swą wagę z bajtu BYTE Każdy na¬ 
stępny bit dostąpi odpowiednio 
mniej mnożeń, aż do bitu nr 0. któ¬ 
ry wejdzie na najniższą pozycję 
1 lam Juz pozostanie 

Inna metoda konwersji może być 
"przelewanie jednostek" Algorytm 
ten polega na zmniejszaniu liczby bi¬ 
narnej (np przez DEC) z równoczes¬ 
nym zwiększaniem liczby BCD (roz¬ 
kazem ADC #1 w trybie'dziesięt¬ 
nym) az do osiągnięcia przez tę pier¬ 
wszą warlóśel O Ta metoda, prosla 
I łatwa do zrozumienia. Jest Jednak 


znacznie mniej efektywna od lej. Ja¬ 
ką pokazuje procedura CONVR. 

O trybie dziesiętnym nalc/.y wie¬ 
dzieć 1 pamiętać nawet wtedy, gdy go 
nie używamy. Szczególnie w proce¬ 
durach obsługi przerwań warto mleć 
na uwadze to. że mogą być one wy¬ 
woływane w dowolnej chwili, także 
w takiej, kiedy Jest ustawiony znacz¬ 
nik D. Dlatego każda szanująca się 
obsługa przerwania zaczyna się od 
sakramentalnego CLD. 

Poczta 6502 

Zostałem wprost zasypany odpo¬ 
wiedziami na pytanie postawione 
w poprzednim odcinku. Obie uważ¬ 
nie przeczytałem l jedna z nich oka¬ 
zała się prawidłowa. Aby ANTIC. wy¬ 
świetlał znaki ATASC11. bez potrzeby 
żadnych konwersji, należy odpowie¬ 
dnio przetasować generator znaków 
tak, by kodowi O odpowiadał znak 
serduszka, kodowi 65 - ’A’ ltd. Wszy¬ 
stkim, którzy wpadli na ten pomysł, 
serdecznie gratuluję. 

Napisał do mnie Pan Iks. który 
zastrzegł, by nie ujawniać jego na¬ 
zwiska. Pan Iks bierze w obronę 
wszystkich niedorozwiniętych czy¬ 
telników tej rubryki, obarczając 
mnie winą za ich kłopoty z przy¬ 
swajaniem przedstawionego tu ma¬ 
teriału. Niesprawiedliwie przemil¬ 
cza przy lym fakl. że na rozwój 
szarych komorek (Jak dowiedli 
uczeni) ma również wpływ zanie- 
e zy8z.cy.cn le środowiska, zanik war¬ 
stwy ozonowej wskutek użycia dez- 
odoranlow i lodowek. nieumiarko- 
wane stosowanie środków odurza¬ 
jących. a tak/.e obciążenia dziedzi¬ 
czne. Pan Iks wyraził w związku ze 
swa uraza wolę użycia wobec innie 
pr/cmocy fizycznej. Szanowny Pa¬ 
nic adres Pan zna. zapraszam. 


Janusz Ii. Wiśniewski 







FC 

1160 

DATA 

SS 

1170 

DATA 

OT 

1180 

DATA 

JL 

1190 

DATA 

0X 

1200 

DATA 

WK 

1210 

DATA 

NI 

1220 

DATA 

BD 

1230 

DATA 

VY 

1240 

DATA 

AX 

1250 

DATA 

HB 

1260 

DATA 

VY 

1270 

DATA 

VE 

1280 

DATA 

sx 

1290 

DATA 

CS 

1300 

DATA 

0P 

1310 

DATA 

LB 

1320 

DATA 

HA 

1330 

DATA 

GU 

1340 

DATA 

UH 

1350 

DATA 

QI 

1360 

DATA 

10 

1370 

DATA 

RP 

1380 

DATA 

UP 

1390 

DATA 

QY 

1400 

DATA 

PL 

1410 

DATA 

IE 

1420 

DATA 

FM 

1430 

DATA 


cal0f7a091a2dd4c42c6a94c8d 
991da9ea8d9clda201b50c9d01 
90bde702950ccal0£318ade702 
69108d9aldade80269008d9bld 
a091a2ba2042c6a90085c£ade7 
0285d4ade80285d538a90085d2 
e5d485d0a99085d3e5d585dla0 
00f0033866cfa5d2c971a5d3e9 
909014ade702X869038dle92ad 
e80269008dlf926cle9224cf70 
633027bld285ce91d420ad91aa 
£0cdc920f017c940£0c8c960£0 
c4290dc908f0be90418a29lfc9 
09£03abld2c8c900bld288e990 
9012bld2c8c971bld288e990b0 
06a5d0a6dl900724cf3090a900 
aa85d686d738bld2e5d691d420 
ad91bld2e5d74ca591bld291d4 
20ad914cle91e6d2d002e6d3e6 
d4d002e6d56046696c65205072 
6f746563746f7220312e302062 
79204164616d2053616c616d6£ 
6e9b46696c652050726£746563 
746£7220756e696e7374616c6c 
65642 19b43616e277420756e69 
6e7374616c6c2046696c652050 
726£746563746f7221£d9bX0el 
301ae202e3027 190 



Wk:lu użytkowników Interpretera polce cii do DOS u 
2 5, lansowanego w TA programu CP, uar/eka na brak 
możliwość I zalKvplee/anla I oellx-zploezanla pltkow Tę 
niedogodność niweluje poniższy program Dane szesna¬ 
stkowe należy starannie przepisać I przy pomocy Zgry- 
wusa+ z TA 2/92 zapisać pod nazw;) D PROCOM na|le¬ 
piej nu dyskietce, z której wczytujemy DOS 

Program len. unie homiony nasię,pilic- z poziomu CP 
rozkazom PRO, rozszerza rejK-rluar rozkazów CP o dwa 
dodatkowe 

LOC na/,wa_pliku 
UNL nazwa_pllku 

Pierwszy z nlc-li pe>woelu|o zalK-zplc-c-zenle wskazanego 
pliku (bądź plików, Jezc-ll na/.wa_phku zawic-ra znaki 
lub "?'( Drugi powodu|c- analogic znie: usunięcie z.abc-z- 
plcezeula 

Filc- Protc-c lor Instaluje- się w pamięć I zajmując ok 
100 baftow Jest przeznaezony WYŁĄCZNIE do CP I tyl¬ 
ko z DOS c-m skonfigurowanym standardowo (dopusz¬ 
czalne dokładnie- 3 pliki otwarli- JedncK-ześnlc:| Nic- wol¬ 
no uruchamiać go automatycznie j>oprz.ez zmianę nazwy 
na AUTORUN SYS ponieważ wtedy uruchamiałby się 
przed CP a powłnlc-n po Można natomiast wymusić 
automatyczny start przy pomoc-y programu BATCH (lub 
MINI BATCH) prczentowanc-gc) oncgda| w TA 

Powtórne wczytanie Filc Protcctora spowcKluje usunię¬ 
cie go z pamięci (o Ile 1 ładzie to możliwe) 


KONKURS 

Podc-zas używania BugHuntera da|c- się zauwazyc zna 
cziic zwolnienie pracy komputc-ra Badany program mo 
żerny śledzić- z dowolnie wybraną prędkością, zmnlejsza- 
Jąc ja. lub zwiększając- - według potrzeb Mało kio wic 
ze- szybkość naszego ATARI możemy regulować- również 
przy |łonie>cv BASIC-a. pisząc- odpowiedni program Pro 
poniijc przepisanie i uruchomienie zamieszczonego poni¬ 
żej przykładu Jego działanie polega na wyświetlaniu 
sianu joystle ka podłączę mego do portu pierwszego Wy¬ 
raźnie- widać, że wyświetlanie wyniku lunkc-JI STICK 
przebiega w znacznie wolniejszym nlz zazwyczaj tempie 
Co ciekawe: po wychyleniu Joysticka w prawo, obserwu 
jemy przyspieszenie wyświetlania Czyżby tryl) turbo? 

GS 10 ? "ST: “;STICK(0);” " 

PW 20 ? CHR$(28);:GOTO 10 


IJ 

1000 

YL 

1002 

NU 

1004 

YY 

1006 

JP 

1008 

CO 

1010 

IX 

1020 

RX 

1030 

LD 

1040 

CE 

1050 

TY 
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SV 

1070 

OU 

1080 

EE 

1090 

AT 

1100 

PN 

1110 

NW 

1120 

AK 

1130 

TH 

1140 

Ul 

1150 


REM *-* 

REM : File Protector 1.0 : 
REM : autor: Adam Salamon : 
REM : (c) 1992 Tajemnice ATARI : 

REM *-* 

DATA ££f£00901d92200090ad66908d 
DATA e702ad67908de8026030034c7c 
DATA Idade220c99bf046a205a002b9 
DATA d£20dd6a90d006ca8810f43008 
DATA e0039030a202d0e88a0aa9008d 
DATA 590369238d5203208clfa2dca0 
DATA 2020f4lda9149d48032056e410 
DATA 06206al£4c641d2092194c641d 
DATA 4cb7Id0070900000554e4c4c4£ 
DATA 4300a203bd991dddla92d005ca 
DATA 10f5304718ad9ald6960aaad9b 
DATA Id6900cde802d005ece702£007 
DATA a09la2f94c42c6a50c85d2a50d 
DATA 85d3a002b90b0099e602bld299 
DATA 0b0088d0f2a203bdla929d991d 


Nlnic-jszym ogłaszam konkurs na wyjaśnienie takiego 
zachowania komputera Wsrexł osób. które do końca sty¬ 
cznia przyszłego roku nadeslą wyjaśnienie zaobser 
wowanego faktu, rozlosujemy trzy takie właśnie spowal¬ 
niające- Joystle ki ufundowane przez L K AVALON 
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smms 



Jednym z zestawów znaków zawartych w ze¬ 
stawie Panther Jest AWP Po wybraniu go za po¬ 
mocą menu Di»pl*y mamy możliwość używania 
edytora 7 polskimi znakami w standardzie progra 
mu ATARI Wrlter+ Co zrobi Jednak, aby przy 
pomocy tego ostatniego edytora redagować tekst 
napisany w standardzie Panther? Wystarczy przy 
gotować odpowledn’s tablicę konwersji: 1 patrz ni¬ 
żej) zapisać Ją na kasetę lub dysk I wybrać z menu 
Prlnter Następnie trzeba wczytać do Panthcra 
tekst 1 wydrukować go, wybierając opcję Priot 
z menu File Jak wiemy. Panther wyświetla wtedy 
okienko z napisem P: W to miejsce należy wpisać 
nazwę pod Jaką chcemy zapisać tekst w nowej po¬ 
staci np C: lub DJPLJK-AWP Postępując analogi¬ 
cznie możemy dokonać konwersji każdego pliku 
z dowolnej postad na Inną 


Arkadiusz Ruaiu z Jaworzna 

Od kilku miesięcy Jestem uzyt 
kownikicm edytora tekstu Pan 
ther Przeczytałem na łamach 
TA. ze użytkownicy nie dają so¬ 
bie rady z opracowywaniem tab¬ 
lic konwersji. Gdy uruchomiłem 
program po raz pierwszy, tez 
miałem problemy, ale po prze¬ 


czytaniu instrukcji obsługi l za 
wartości kilku plików udało ml 
się stworzyć sterownik mojej 
drukarki. LC 200 Col Częsc le¬ 
go zawartości jesl zgtKina ze ste¬ 
rownikiem drukarki LC24-200, 
lecz posiada dużo Innych lun 
kcji, np zagęszczenia, kroje pis¬ 
ma. kolory. 


Panther -> ATARI Writer+ 


ż =#2 
Ą *23 
Ł=łll 
Z *0 


end ot file 


Jarosław Syrytak 


Sterownik 

drukarki STAR LC-200 Col 

%% 


daje pojedynczy znak % 

%e 

- 

zerowanie drukarki 

%PAGE 

- 

wysuw strony 

%STD 

- 

standardowa wielkość znaków 

%DOUB 

- 

podwójna wielkość znaków 

%QUAD 

- 

poczwórna wielkość znaków 

%PICA 

- 

gęstość PICA 

%ELITE 

- 

gęstość ELITE 

%COND 

- 

gęstość CONDENSED PICA 

teond 

- 

wyłączenie CONDENSED PICA 

%B 

- 

włączenie pogrubienia znaków 

%b 

- 

wyłączenie pogrubienia znaków 

%E 

- 

włączenie druku rozszerzonego 

%e 

- 

wyłączenie druku rozszerzonego 

%u 

- 

włączenie podkreślenia 

%u 

- 

wyłączenie podkreślenia 

%BLACK 

- 

kolor czarny 

%RED 

- 

kolor czerwony 

%BLUE 

- 

kolor niebieski 

%VIOLET 

- 

kolor fioletowy 

%YELLON 

- 

kolor żółty 

%PINK 

- 

kolor różowy 

%GREEN 

- 

kolor zielony 

%SUP 

- 

włączenie wykładników 

%SUB 

- 

włączenie indeksów 

%SU 

- 

wyłączenie wykładników i indeksów 

%DRAFT 

- 

krój DRAFT 

%SANS 

- 

krój SANSERIF 

%COUR 

- 

krój COURIER 

%ORATOR 

- 

krój ORATOR 

%SCRIPT 


krój SCRIPT 





% ELITE #27M 
%COND=#15 

STAR LC-200 Col 

%cond“#18 


. bold 

%%-% 

%B=#27E 

. reset printer 

%@-#24§ 

%b=#27F 

emphasized 

e^ect page 

%E=#27W1 

%e=#27W0 

% PAGE— #12 

polish łetters 

. underline 
%U=#27-1 

ą»,# 8 a 

%u=#27~0 

ć='# 8 c 

ę=,# 8 e 

colors 

ł=/#81 

%BLACK~#27r0 

ń=' # 8 n 

%RED*=#27rl 

ó='# 80 

%BLUE=#27r2 

ś= ' # 8 s 

%VIOLET»#27r3 

ź='# 8 z 

%YELLOW=#27r4 

ż=#154#8z 

%PINK»#27r5 

Ą=,# 8 A 

%GREEN=#27r6 

Ć='#8C 

Ę=,# 8 E 

. super- i subsenpt 

Ł=/#8L 

%SUP=#27S0 

N='# 8 N 

%SUB=#27S1 

0= '# 80 

%supsub*#27T 

S='#8S 

Z='#8Z 

. typeface 

Ż=-#8Z 

% DRAFT #27x0 

. size of characters 

%SANS=#27xl#27kl 

%COUR=#27xl#27k0 

%STD=#27h#0 

%ORATOR-#27xl#27k7 

%DOUB=#27h#l 

%SCRIPT~#27xl#27k4 

%QUAD=#27h#2 

. prmt pitch 

%PICA=#27P 

end of file 











W literaturze doty< zącej małego ATARI można często spotkać 
tajemniczy termin IOCB Jest on skrótem angielskich słów In- 
put/Output Control Błock, czyli blok sterowania wejściem i wy 
Jśclem Jak łatwo się domyślić, taki blok Jest używany do trans¬ 
mitowania danych pomiędzy komputerem, a urządzeniami zew¬ 
nętrznymi Jego struktura Jest taka. ze mozc obsługiwać riowol 
ne urządzenie niezależnie od jego typu Dzięki temu nie musi¬ 
my kłopotać się fizycznymi właściwościami konkretnego urzą¬ 
dzenia - wystarczy przypomnieć sobie, Jak Jest zbudowany 
IOCB Komunikacja z każdym urządzeniem zewnętrznym prze 
biega według Jednolitego schematu Pierwszą czynnością. Jaką 
należy wykonać, jest otwarcie Jednego z ośmiu kanałów (nume¬ 
rowanych od 0 do 7) związanych z ośmioma istniejącymi bloka¬ 
mi sterowania wejściem i wyjściem Po pomyślnym dokonaniu 
otwarcia kanału należy odczytać lub zapisać dane, a następnie 
zamknąć otwarty kanał, umożliwiając Jego otwarcie przez inny 
program Większość doświadczonych programistów rozpoczyna 
procedury obsługi transmisji właśnie od zamknięcia kanału, 
zabezpieczając się w ten sposób przed programami, które pozo¬ 
stawiły kanał otwarty. Oczywiście takie procedury powinny 
obowiązkowo kończyć się zamknięciem kanału. W ATARI BA- 
SIC-u otwarcia kanału dokonujemy przy pomocy instrukcji 

OPEN inr kanału,tryb,bajt_pomocnlczy,nazwaurządzenla 

np.: 

OPEN (11,4,0,"C:" 

oznacza otwarcie kanału pierwszego do odczytu danych z mag 
netofonu z krótkimi przerwami, zaś 

OPEN #7,8,0,"P:" 

oznacza otwarcie kanału siódmego do zapisu danych na dru¬ 
karkę 

Transmisję danych przeprowadzamy przy pomocy instrukcji 
PUT tnr_kanału, zmienna 

(wysłanie zawartości zmiennej do kanału o zadanym numerze), 

GET tnr kanału,zmienna 

(odczytanie danej z kanału do zmiennej), 

1NPUT tnr_kanału, zmienna 
(odczytanie bloku danych), 

PRINT tnr_kanalu, zmienna 
(zapisanie bloku danych) 

Często zdarza się widzieć w programach instrukcje INPUT 
1 PRINT, których parametrem Jest tylko nazwa zmiennej W ta¬ 
kich sytuacjach operacja dokonywana Jest przy użyciu kanału 
nr 0, który Jest na stałe związany z tzw edytorem, czyli z urzą¬ 
dzeniem logicznym, składającym się z klawiatury i z monitora 
Kanału zerowego nie wolno używać do komunikacji z żadnym 
innym urządzeniem oprócz edytora Zaletą takiego związania 
kanału z urządzeniem Jest to, że w celu wypisania na ekranie 
lub odczytania z klawiatury tekstu, nie musimy otwierać ”E ", 
czyli edytora, ponieważ Jest on zawsze otwarty przez system 
operacyjny. 

Do zamykania kanału służy komenda: 

CLOSE Pnr kanału 


Oto pr/ykładowy program w BASIC-u. który wypisuje przez 
edytor plik tekstowy zawarty na dysku. 

QY 10 CLOSE #1:TRAP 40 

MF 20 OPEN #1,4,0,"D:PLIK.TXT":REM W CUDZ 
YSLOWIE PODAJ ODPOWIEDNIA NAZWĘ 
YO 30 GET #1,A:? CHR$(A);:GOTO 30 
FZ 40 IF PEEK(195)=136 THEN END 
UU 50 ? CHR$(253);”BLAD NR ”;PEEK(195):EN 
D 

Instrukcja END zamyka wszystkie otwarte kanały oprócz ka¬ 
nału zerowego. 

Na poziomie BASIC-a taka wiedza o IOCB-ach Jest wystar¬ 
czająca. Inaczej Jest gdy piszemy program w asemblerze. Wyko¬ 
nanie każdej z wymienionych powyżej operacji wymaga wpisa¬ 
nia odpowiednich wartości do lOCB-ów i wywołania systemo¬ 
wej procedury obsługi urządzeń logicznych zwanej CIO (od an¬ 
gielskich słów Central Input/Output, czyli główna procedura 
obsługi wejścia i wyjścia) Pod adresem 58454 (Sc456) znajduje 
się rozkaz skoku do tej procedury Wymagane Jest, aby pod¬ 
czas wywołania CIO w rejestrze X mikroprocesora znajdował 
się numer kanału, którego operacja dotyczy, pomnożony przez 
16, a więc np. 0. 16. 32 itd Bardzo ważna Jest znajomość stru¬ 
ktury bloków sterowania wejściem i wyjściem Zajmują one 
w pamięci lokacje 832-959 (S0340-S03bf) i każdy z nich ma 
długość 16 bajtów W kolejnych bajtach IOCB zawarte są nastę¬ 
pujące informacje- 

• 0 ICHID Indeks w tablicy nazw urządzeń, wstawiany tutaj 
przez system operacyjny Ten bajt jest inicjowany warto¬ 
ścią 255 oznaczającą, ze IOCB nie Jest aktualnie używany. 
Podczas zamykania kanału. OS wpisuje tu ponownie 255 

• I ICDNO Numer urządzenia, np. I dla Dl: lub 2 dla D2-, 
ustawiany przez system operacyjny na podstawie nazwy 
podanej przy otwarciu kanału 

• 2 ICCOM Komenda dla urządzenia 

• 3 ICSTA Wynik ostatnio wykonywanej operacji, ustawiany 
przez system operacyjny Liczba większa od 127 oznacza, 
że podczas operacji wystąpił błąd Po zakończeniu trans¬ 
misji ta sama iiczba znajduje się w rejestrze Y 

• 4, 5 ICBAL/H Adres bufora zawierającego nazwę urządze¬ 
nia podczas Jego otwierania lub dane podczas transmisji. 

• 6 7 1CPTL/H Pomniejszony o Jeden adres procedury wy¬ 
syłającej do urządzenia Jeden bajt Używany głównie przez 
BASIC 

• 8, 9 ICBLL/H Długość bufora zawierającego transmitowa¬ 
ne dane Po zakończeniu operacji w tym słowie znajduje 
się faktyczna długość przesłanego bloku danych 

• 10 ICAX1 Bajt pomocniczy numer 1 Używany zazwyczaj 
do określenia trybu dostępu do urządzenia Odpowied¬ 
nik drugiego parametru instrukcji OPEN w BASIC-u 

• 11 ICAX2 Bajt pomocniczy numer 2. Jego znaczenie 
zmienia się w zależności od obsługiwanego przez IOCB 
urządzenia Odpowiednik trzeciego parametru instrukcji 
OPEN w BASIC-u. 

• 12, 13 ICAX3/4 Bajty pomocnicze nr 3 i 4. Używane przez 
BASIC do przechowywania numeru sektora podczas ope¬ 
racji NOTĘ i POINT* 

• 14 ICAX5 Bajt pomocniczy nr 5 Używany przez BASIC do 
przechowywania numeru bajtu w sektorze podczas opera 
cji NOTĘ i POINT 

• 15 ICAX6 Bajt pomocniczy nr 6. Zazwyczaj nieużywany 

A oto zestawienie komend rozpoznawanych przez IOCB 

• 3 Otwarcie kanału 

• 5 Odczytanie wiersza tekstu. 

• 7 Odczytanie bloku danych. 

• 9 Wysłanie wiersza tekstu. 

• 11 Wysłanie bloku danych. 

• 12 Zamknięcie kanału 

• 13 Odczytanie stanu urządzenia. 

Komendy o kodach większych od 13 powodują wykonanie 
procedury specjalnej, charakterystycznej dla danego urządze¬ 
nia, np 

• 17 Rysowanie linii (tylko dla urządzenia S.). 
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• 18 Rysowanie linii z wypełnianiem obszaru na prawo <xl 
niej (tylko dla urządzenia S ) 

• 32 Zmiana nazwy pliku (tylko dla urządzenia I) ) 

• 33 Usunięcie pliku (tylko dla urządzenia D ) 

• 35 Zablokowanie możliwości zapisu do pliku (tylko dla 
urządzenia 13 ) 

• 36 Odblokowanie możliwości zapisu do pliku (tylko dla 
urządzenia D ) 

• 37 Ustawienie logicznej pozycji w pliku (tylko dla urzą¬ 
dzenia D ) 

• 38 Odczytanie logicznej pozycji w pliku (tylko dla urzą¬ 
dzenia D'l 

• 254 Formatowanie dyskietki (tylko dla urządzenia D-) 

Warto znać również kody opisujące wynik ostatnio wykony¬ 
wanej operacji: 

• 1 Operacja przebiegła pomyślnie Warlo zauważyć, ze nic 
zawsze jest to powód do radości W przypadku odczytu 
pliku o nieznanej długości stosowany bywa trik polegają¬ 
cy na żądaniu odczytania bloku o długości większej niż 
spodziewana długość pliku Wtedy oczekujemy na wystą¬ 
pienie błędu nr 136 (koniec danych do odczytu) W takim 
przypadku jedynka oznacza, ze bufor był za mały 

• 128 Podczas wykonywania operacji został wciśnięty kla¬ 
wisz BREAK. 

• 129 Nastąpiła próba ponownego otwarcia kanału Juz 
otwartego 

• 130 Nie istnieje urządzenie o podanej nazwie. 

• 131 Próba odczytu z urządzenia tylko do zapisu 

• 132 Nieistniejący rozkaz 

• 133 Próba dostępu do nieotwartego kanału 

• 134 Zły numer iOCB 

• 135 Próba zapisu na urządzenie olwarte tylko do odczy¬ 
tu 

• 136 Koniec danych do odczytu 

• 137 Odczytany wiersz jest dłuższy od przeznaczonego 
dlań bufora 

• 138 Urządzenie nic zameldowało gotowości w wyznaczo¬ 
nym czasie 

• 139 Urządzenie nic potrall wykonać żądanej operacji 
(błąd częslo spolykany przy próbie odczytu dyskietki 
o gęstości innej, niż obsługiwana przez stosowany DOS) 

• 140 Nieprawidłowa szybkość przesyłania danych 

• 141 Kursor znalazł się poza dozwolonym zakresem 

• 142 Odczytano następny znak przed odebraniem przez 
system znaku poprzedniego 

• 143 Nieprawidłowa suma kontrolna 

• 144 Błąd podczas wykonywania polecenia (występuje np 
podczas próby zapisu na dyskietce załx'zpleezoneJ) 

• 145 Nieznany tryb graficzny 

• 146 Operacja nlezalmplemenlowana 

• 147 Zbyt mało wolnej pamięci na włączenie żądanego try¬ 
bu gra licznego 

Przykładowa procedura otwarela do odczytu pliku dyskowe- 


go może wyglądać tak 

locb 

equ 

$340 

cio 

equ 

$e456 

chnl 

equ 

16 

copen 

equ 

3 

eol 

equ 

155 

open 

Xdx 

łchnl 


Ida 

0copen 


sta 

iocb+2,x 


Ida 

<fname 


sta 

iocb 4,x 


Ida 

>fname 


sta 

iocb+5,X 


Ida 

#4 


sta 

iocb+10,x 


jmp 

CIO 

fname 

dta 

C'D:PL1K.TXT' 


dta 

b(eol) 


Ciekawy jest przypadek wysyłania do urządzenia, np do edy¬ 
tora, Jednego baj tu 


chnO equ 0 

pute ldx DchnO 

Ida iocb+ ?,x 
pha 

Ida iocb+6,x 
pha 

Ida byte 
rts 

Wysłanie na stos zawartości bajtów 6 1 7 iOCB-u spowoduje, 
że przez rts zostanie wywołana procedura wysłania do urządze¬ 
nia zawartości rejestru A mikroprocesora 

Możliwości wykorzystania lOCB-ów są ogromne, ale w widu 
przypadkach wiążą się z niebezpieczeństwami Przykładi m mo¬ 
że być edytor XLF-a, który umożliwia odczyt 1 zapis lekstów 
Jako program rezydentny, działa on niejako "za plecami’ in¬ 
nych aktywnych programów Każdą operację wejścia/wyjścia 
musi rozpocząć od znalezienia nieużywanego kanału, spraw¬ 
dzając zerowy bajt każdego z lOCB-ów w poszukiwaniu warto¬ 
ści 255 Dodatkowo musi przed transmisją przechować zawar- 
lość wielu komórek uczestniczących w przesyłaniu danych 
a zwłaszcza komórek ZiOCB-u, będącego odpowiednikiem 
lOCB-ów na slronle zerowej. System operacyjny przed każdą 
operacją wejścia/wyjścia przepisuje tam zawartość IOCB-u któ¬ 
rego dotyczy operacja, a procedury obsługi konkretnego urzą¬ 
dzenia korzystają z łych danych, nie kłopocząc się o to, z które¬ 
go IOCB-u pochodzą Po zakońc zeniu pracy, sterowanie odda¬ 
wane jest systemowi kióry przepisuje teraz ZIOCB do odpo 
Wiednie go bloku slerowanla wejściem 1 wyjściem Ciekawostką 
Jessl to, ze OS przepisuje tylko pierwsze 12 bajtów lOCB-ów, nic 
ruszając pozostałych czterech 

832-847, $0340-$034f IOCBO 

Blok ste rowanla wtjśe iem 1 wyjściem numer 0 

848-863, $O350-$035f IOCB1 

Blok sterowania wejściem 1 wyjściem numer 1 

864-879, $O360-$036f IOCB2 

Bleik sterowania wejściem i wyjściem numer 2 

880-895, $0370-$037f IOCB3 

Hle>k sterowania wejściem 1 wyjściem numer 3 

896-911, $O380-$038f IOCB4 

Blok sterowania wejśele*m 1 wyjściem numer 4 

912-927, $0390-$039f IOCB5 

Blok sterowania wejściem 1 wyjściem numer 5. 

928-943, $03a0-$03af IOQB6 

Blok sterowania wejściem 1 wyjściem numer 6 

944-959, $03b0-$03bf IOCB7 

Blok sterowania we jściem i wyjściem numer 7 


Jarosław Syrylak 





Egzemplarz SiDiC ir .1 u pojemno¬ 
ści 64K który przesłałem ostatnio 
do redakcji Tajemnic ATARI różut 
się w kilku szczegółach od przedsta¬ 
wionego w TA 8/92. Chcę o tych 
zmianach poinformować wszystkich 
budowniczych SiDiCar a 

Zacznę Jednak od dwóch błędów 
Jakie wystąpiły w artykule "SiDiCar 
dysk krzemowy' Po pierwsze: mam 
cichą nadzieję, ze nikt nic potrakto¬ 
wał dosłownie sugestii, żeby wyjmo¬ 
wać z. gniazda Jakikolwiek carlridge 
po włączeniu zasilania. Chochliki 
dobrze wiedzą, ze należy to robić po 
wyłączeniu zasilania. Czytelnicy TA 
zapewne również. Po drugie na rys. 
4 wysoki stan sygnału CLK jest "za 
długi”, opadające zbocze lego sygna 
łu występuje po osiągnięciu wysokie¬ 
go poziomu przez sygnał WE Na 
szczęście przerzulnik D nic zwraca 
uwagi na opadające zbocze CLK. 


tym zachęcam do stosowania pr/t 
rzutnika w wersji CMOS 74HCT175 

Jeżeli w naszym komputerze 
wspołegzystują różne "przybudówki", 
to warto na linii D7 włączyć szerego¬ 
wo rezystancję o wartości ok 33 
omow W moim przypadku "zdoby 
cle" układu 74HCT27 okazało się 
niemożliwe (c/y są takie?). 

Proponuję również nowy sposób 
wytwarzania sygnału CS dla pamięci 
M809F. Jak pamiętamy, występuje 
tu dodatkowy problem odizolowania 
baterii od układów wewnętrznych 
komputera. Prosty układ wygląda 
lak 


BC238C M809F-CS 



f 0 


Najistotniejszym momentem dla 
poprawnego działania SiDiCar-a Jest 
narastające zbocze CLK Praktyka 
wykazała, ze warunki potrzebne do 
Jego wytworzenia mogą (oj. mogą 1 ) 
okazać się /a mało precyzyjne i CLK 
wystąpi za wcześnie powodu 
Jąc zatrzaśnięcie przez CAR 
SET nieoczekiwanej liczby 54 
Negatywne (tu) przypadki "sa £ 
niedzielnego myślenia" można i 
łatwo wyeliminować zarówno 
na etapie projektowania płyt 
ki. Jak i w golowym egzempla¬ 
rzu. Potrzebne opóźnienie otrzyma¬ 
my włączając równolegle do linii 
CLK eksperymentalnie dobraną po¬ 
jemność (od kilkudziesięciu do ok 
330 pF) Na płytce wystarczy przylu- 
lowac do pin8 i pin9 układu 74 175 
wybrany kondensator Gorąco przy 


Ponieważ mogą tu wystąpić pro¬ 
blemy ze złym dopasowaniem pozio¬ 
mów napięć (Jest to zależne cxi typu 
układów w komputerze) to zaradzi¬ 
my temu tak: 

8 C 238 C MB 09 F-C 5 

Ti r 

|F JO—41 D )0—c 

8 ROMKA i 

CMOS iii 

IlkO 


Po wprowadzeniu opisanych 
zmian praca z SiDlCar-em staje się 
prawdziwą przyjemnością Do szczę¬ 
ścia brakuje jedynie rasowego Krze¬ 
mowego DOS u Rychłego jego po¬ 
wstania zyezę Czytelnikom i sobie. 

SEC4792 Jarosław Krysztoplk 


r 


1 

1 

1 




skr poczt. 66 
35-959 Rzeszów 2 


Zamawiam nagrane na 


programy zamieszczone 
w_ numerze TA 


mój adres 


kasecie 


□ 

dysku 





Goli powszechnie uważany jest za grę 
sportową, ale 1 hazardową Mimo, lż nie 
jest jeszcze sporiom olimpijskim (może 
będzie od 1996). warto by było zaznajo¬ 
mić się z nią Gra ma ładną grafikę 
i dość duży wybór opcji: 

• liczba graczy 

• stopień zaawansowania zawodni¬ 
ków 

• liczba dołków, do których wbija się 
piłeczkę 

Grajae w opcji "nowkjusz" nie napo¬ 
tkamy żadnych przeszkód terenowych, 
ale już przy opcji 'amator” wieje wiair, 
ktorego kierunek i siła uwldw/nlona 
jest na tablicy Informacyjnej Opcja 
mistrz", eo zrozumiałe, jest bardziej uro¬ 
zmaicona Występują lu lachy plasku, 
wysepki, górki, na których lyiko prze¬ 
wrotny autor mógł umieścić dołek oraz 
Inne urozmaic enia terc nowe Ponadto we 
wszystkich rodzajach opcji gracz może 
wybierać siłę uderzenia (podane są w ko¬ 
lejności od największej) - IW, 3W 5W 11 
- 91 Gdzie IW lo uderzenie płaskie, sil¬ 
ne na odległość około 250 Jardów a 91 lo 
uderzenie wysokie i słabe (tzw lob) na 
odległość około 70 Jardów. Oczywlśeie 
podałem maksymalne zasięgi uderzeń, 
ale gracz może regulować siłę uderzenia 
Joystlc kłem lut) klawiaturą np IW może 
być lyiko do 100 jardów Na planszy wid 
nicje strzałka kursora, którą można wy¬ 
brać kierunek uderzenia Odległość piłe¬ 
czki od dołka podawana jest odpowie¬ 
dnio w jardach (YARDS). stopach (FO- 
OlS) oraz w calach (1NCHES) Kiedy pi¬ 
łeczka znajduje się w exllcgloścl mniej 
szej nlz 30 stóp od dołka wyświetlane 
Jest nachylenie terenu Po ka/dora/owym 
"zaliczeniu ’ dołka ukazuje się tabela wy¬ 
ników, na której uwidocznione są aktu¬ 
alne wyniki uzyskane przez zawodnika 
(numer kolejny dołka oraz liczba wyko¬ 
nanych uderzeń) Autor zaprogramował 
liczbę uderzeń potrzebnych na pokona¬ 
nie odległości od jednego dołka do na¬ 
stępnego 1 Jeżeli ją przekroczysz otrzy¬ 
masz punkty "na minus" Jeśli zmieścisz 
się w limicie, to utrzymasz punkty uzy¬ 
skane po poprzednich uderzeniach, a je¬ 
żeli wykonasz to w mniejszej ilości niż to 
jest konieczne, obniżysz straty Nie znie¬ 
chęcaj się niepowodzeniem, naprawdę 
można zejść "poniżej zera" 

Powodzenia! 
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TATAR 


9 






















REDAKCJA NIE PONOSI ODPOWIEDZIALNOŚCI ZA TREŚĆ ZAMIESZCZANYCH OGŁOSZEŃ. 



Ceny ogłoszeMfcik< 

* lor. 2 £ 


owych w TA: 


• Cała strona 6 min. + 100 za kolor 

• Ostatnia stron* jJBłte; / l5niln 

Ogłoszenia drobne: 


każde słowo 


5 000 


m 


Sprze elaz oprogramowania it i ni iłi ATARI Prześlą 
zaadresowaną kopi r U; zwrotni (A5) i znaczek z.i 
2500 zł. a otrzymasz katalog M B SOFT, ni Krzywa 
3/25 08-530 Dęblin 


PrenumeraTA 


Liczba egzemplarzy 
każde go numeru 

cena 1 
egzemplarza 

3-mIes. 

6-mIcs. 

n= 1 

11500 

34500 

69000 

n=2 

10800 

64800 

129600 

n=3 

10350 

93150 

186300 

II 

c 

9900 

118800 

237600 

n=5do 9 

94U0 

28200*n 

56400*n 

n= 10 lub więcej 

8750 

26250*n 

52500*n 


W celu zamówił nta prenumeraty należy wypełnić czytelnie 
blankiet wpłaty na konto (dostępni na pocztach i w ban¬ 
kach) podając na odwrocie imię. nazwisko I adres zamawia¬ 
jąc ego oraz liczbę egzemplarzy danego numeru wraz z okre¬ 
som prcnumcraiy Pieniądze prosimy wpłacać na konin: 


"Tajemnice Atari' s.c. Rzeszów, ul. Targowa 1/801 
Bank Przemysłowo-Handlowy III Oddział Rzeszów 
nr 326807-23650 136 


* BAJT * 

ATARI XL/XE, ST 
IBM XT AT 
AMIGA 500. 2000 
COMMODORE 64/128 
COMMODORE +4. 16. 1 16 
ZX SPECTRUM 



owiatJ 


Katalogi gratis, po przesłaniu 
zaadresowanej koperty zwrotne) (A5) 
+ znaczek za 2500 zł 

SPRZEDAŻ WYSYŁKOWA' 

BAJT 

ul Chemików 3/55 
05 100 NOWY DWÓR MAZ. 
PROSIMY KONIECZNIE PODAĆ TYP 
POSIADANEGO MICROKOMPUTERA 


Redakcja Tajemnic ATARI informuje, 
ze posiada jeszcze, dużą liczbę egzempla 
rzy arc hiwalnych czasopisma Można Je 
nabywać wysyłkowo wpłacając pienią¬ 
dze podobnie, jak przy prenumeracie 
(przekazem bankowym na konto podane 
wyżej) Oto wykaz dostępnych numerów 
wraz z cenami. 


TA 5/91 

Cena: 6 900 zł 

TA 7/91 

Cena: 6 900 zł 

TA 8/91 

Cena: 8 900 zł 

TA 3/92 

Cena: 9 900 zł 

TA 4/92 

Cena: 9 900 zł 

TA 5/92 

Cena: 9 900 zł 

TA 6-7/92 

Cena: 13 900 zł 

TA 8/92 

Cena: 9 900 zł 

TA 9/92 

Cena: 12 500 zł 

TA 10/92 

Cena: 12 500 zł 


ATARI, COMMODORE 

Naprawa komputerów monitorów peryferii itp 

Mcmi iż Turix) Rom do magnetofonów A1AR1 (Misja Fred w 1 minucie) 
Dysirybueja gic r firm AVALON Air i muyi ii imri i detal 
Sprzedaż komputc rów t oprogr mion mi 
Drukarki S-Iglowc 155000 

KRYSAL & PLUS Kraków, ul. Mochnackiego 67. 
ul. Biezanowska 1 (rog Wielickiej). 

Serwis: ul. Wielicka tel. 56-01-17 


Punkty 



ięe:* 


Boe hnia ul Floris 12 


Rzeszów, ul. Rejtana 33. sklc p BA J', " (z tyłu I)H "SKŹ 
lei. 548-82 wieczorem 
Nowy Saez. ul Szwedzka I (Księgarnia worzni 

Jasło Rynek !4 AUDIO-V1DEO KAKPA1Y 


ZAM" 


Redakcja Tajemnic Atari informuje o możliwości wjsyHenwegp nabywania 
wszystkich programów zawartych w dowolnym numerze pisma nagranych na kasetę 
(lylko w transmls|l normalny) iui> na dyskietkę W skfad zbloni wdiodzą wszystkie 
listingi zamieszczone w wybranym prze z Zamawiającego numerze Tajemnie 

Cena wersji kasetowej wynos! 25 000 zł. zaś dyskowej 23 000 zl W cenę wli¬ 
czony Jest koszt nośnika nagrania, opakowania oraz opłaty pocztowe Same 
listingi sa za darmo 

Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia (na od¬ 
wrocie) i po naklejeniu go na karlę pocztową wysianie na adres redakcji po¬ 
dany w stopce:. 

Uwaga! Prosimy o nieprzysylann wcześniej należności będzie ona bowiem re¬ 
gulowana przy odbiorze przesyłki 











































































Jest rok 2012 Powszechne korzyslaint / energii amino¬ 
wej sprawiło, że w ciągu minionej dekady powstała olbr/y- 
mia tlose radioaktywnych odpadow Juz pod koniec ubić 
głego stulecia problem ich likwidacji spędzał sen z powiek 
wielu naukowcem i ekologom Dotychczas, mimo olbrzy¬ 
miego rozwoju techniki, nie wynaleziono skutecznego i bez¬ 
piecznego sposobu ich eliminacji ze środowiska, 1 tak juz 
mocno skażonego Ale oto pojawiła się szansa Grupa na¬ 
ukowców opracowała skuteczną melodę wykorzystująca 
pole siłowe, wewnątrz którego możliwe jest przeprowadzę 
nie eksplozji nuklearnej bez szkody dla środowiska zewnę¬ 
trznego Przystąpiono więc do likwidacji odpadów składo¬ 
wanych w starych bunkrach na terenie pollgonow wojsko¬ 
wych Teren poligonów otoczono polem siłowym, a do wnę 
trza bunkrów wjechały zdalnie sterowane spychacze. 

Do sterowania maszynami został wybrany człowiek 
o największych predyspozycjach - człowiek o pewnej rę 
cc 1 nieprzeciętnej zdolności przewidywania, czytelnik 
"Tajemnic Atari’ , właśnie TY 1 

Aby przejąć kontrolę nad spychaczem użyj joysticka lub 
klawiatury Klawisz ESC w obecności napisu GAMĘ OVER 
lub CONTROL ESC jxxlczas gry powoduje powrót do pro 
gramu nadrzędnego ESC lub BREAK w czasie gry są ra 
(unkit m w przypadku popełnienia błędu 

IJ 1000 REM *-* 

XS 1002 REM : E=mc‘2 : 

VB 1004 REM : autor: Dariusz Zolna : 

yy 1006 REM : (c) 1992 Tajemnice ATARI : 

JP 1008 REM *-* 

JW 1010 DATA ffff0040ff4300000000000000 
KT 1020 DATA 00?e3cbde77ee7bd006c397f57 
RZ 1030 DATA 577 f396c00bde77ee7bd3c7e36 
DF 1040 DATA 9cfeeaeafe9c36001c3c7clclc 
OF 1050 DATA 7f00003e7£673£077e00003e7£ 

KS 1060 DATA 073e787f00070cl91blbl90c07 
RP 1070 DATA e030d81818d830e000182c5e7e 
XL 1080 DATA 3c5a0000182c5e7e3cl8810018 
AL 1090 DATA 2c5e7e3cl88100182c5e7e3c5a 
OY 1100 DATA 0000182c5e7elcl80000182c5e 
EZ 1110 DATA 6e3c180000182c567e3c180000 
JC 1120 DATA 18285e7e3c1800005a2c5e7e3c 
GN 1130 DATA 180081182c5e7e3cl80081182c 
SW 1140 DATA 5e7e3cl800005a2c5e7e3cl800 
RT 1150 DATA 00180c5e7e3cl80000182c4e7e 
TL 1160 DATA 3cl80000182c5e763c18000018 
UA 1170 DATA 2c5e7e38180000001818001818 
JH 1180 DATA 00007f7£606f6d6a6c00fcfa0c 
PI 1190 DATA ea4caa6c6a6d6b60?f552a006a 
JJ 1200 DATA ecea0cfa54aa006a6c6a6c6a6c 
SO 1210 DATA 6a6c7c2810baee7ceeba003e63 
OD 1220 DATA 637f636300007e637e63637e00 
yp 1230 DATA 003e636060633e00007c666363 
TS 1240 DATA 667c00007e607c60607f00007f 
NF 1250 DATA 607c60606000003e606763633e 
CX 1260 DATA 000063637f63636300003f0c0c 
QT 1270 DATA 0c0c3f00007£030303633e0000 
FS 1280 DATA 666c786c666300006060606060 


IG 

1290 DATA 7f000063777f6b636300006373 

AO 

1300 DATA 7b6f 676300003e636363633e00 

W 

1310 DATA 007e6363637e6000003e636363 

UT 

1320 DATA 663b00007e6363637e6300003e 

IP 

1330 DATA 603e03037e0000ff1818181818 

TE 

1340 DATA 000063636363633e0000636363 

RQ 

1350 DATA 36Ic08000063636b7f77630000 

CN 

1360 DATA 63361clc36630000c3663cl818 

OP 

1370 DATA 1800007 £060c18307 f0000f f £ £ 

HQ 

1380 DATA 00ff55aa00187£060cl8307£00 

PL 

1390 DATA 00606c7870607£003f61474f5f 

TE 

1400 DATA 5f7f5f£c36£e£efc00fcfe0018 

QQ 

1410 DATA 2c5e7e3cl80018182c5e7e3cl8 

EN 

1420 DATA 0000182c5f7£3cl80018182c5f 

ZM 

1430 DATA 7£3cl8000018^c5e7e3cl81818 

VF 

1440 DATA 182c5e7e3cl81800182c5£7f3c 

NK 

1450 DATA 181818182c5f7£3cl81800182c 

AD 

1460 DATA defe3cl80018182cde£e3cl800 

OL 

1470 DATA 00182cdf££3c180018182cd£ff 

UL 

1480 DATA 3cl80000182cdefe3cl8181818 

WI 

1490 DATA 2cde£e3cl81800182cd££f3cl8 

JL 

1500 DATA 1818182cdff£3cl818fffedafe 

DH 

1510 DATA fedafe80£f829abebe9a£e807e 

OQ 

1520 DATA 2418bde77ee7bdd871fbadadfb 

PL 

1530 DATA 71d8bde77ee7bdl8247elb8ed£ 

TS 

1540 DATA b5b5df8elbl82c5e7e3c3cl800 

cx 

1550 DATA 000c3a7d7f3e0c0000183c3c7e 

10 

1560 DATA 7a341800307cfebe5c30008822 

VF 

1570 DATA 882288228822aa55aa55aa55aa 

YW 

1580 DATA 55bbeebbeebbeebbeeff£f£££f 

TL 

1590 DATA fff££fffbbeebbeebbeebbeeaa 

ZP 

1600 DATA 55aa55aa55aa557cfee6e6a6a6 

QR 

1610 DATA £e7cl83878782828fefe7c£ece 

DQ 

1620 DATA Ic2850fefe7cfec61c0acafe7c 

XT 

1630 DATA lc3870£ef6141clcfefec0fc0a 

XB 

1640 DATA 0a£e7c7efee0fca6a6£e7c£efe 

EK 

1650 DATA 0e7c6c2838387cfec67ca6a6fe 

TI 

1660 DATA 7c7cfec6£e7a0a£efc7e£fffff 

BP 

1670 DATA ffffff7e3c7effffff££7e3c00 

EK 

1680 DATA 3c7e7e7e7e3c0000183c7e7e3c 

LH 

1690 DATA 18000000183c3c180000000000 

MY 

1700 DATA 181800000000000071cfff7f00 

KD 

1710 DATA 0f181193d7d79fl7f£4cffffff 

IY 

1720 DATA ffcfcfffddffffff££3f3flfb0 

EW 

1730 DATA a3a7afafbfa£££9bfffff£8080 

RO 

1740 DATA 801ebfa78el4293f3f007£cf££ 

BL 

1750 DATA 7f000000179fd7df9717190fcf 

KZ 

1760 DATA cfcfc£cbcbc6803£3£3f3£2f2f 

UL 

1770 DATA 3Jl£a£b£a£bfafa£b31f808080 

MN 

1780 DATA fff£££££££0000000080808000 

IX 

1790 DATA 5f7f5f7f5f5f673ffefc00£cfe 

YQ 

1800 DATA fefefcfff£00447d4fa270bd40 

MY 

1810 DATA 033007bd4203c907f0098a38e9 

QF 

1820 DATA 10aad0ed3860a9b59d4403a953 

RP 

1830 DATA 9d4503ad300238e9b59d4803ad 

MR 

1840 DATA 3102e9539d49032056e4bd4803 

OA 

1850 DATA 1869b58d684fbd490369538d69 

PV 

1860 DATA 4fa94c8d0044a95d8d0144a944 

FZ 

1870 DATA 8d0244a90c9d42032056e4a002 

LB 

1880 DATA b92f02997e4fb9c50299814f88 

AR 

189© DATA 10£ladf4028d844£add9028d85 

KN 

190© DATA 4£adda028d864£ad684£c9b6ad 

AB 

1910 DATA 694te953b009a95048a94c484c 

GF 

1920 DATA 0a4aa9218d2f02a9b58d3002a9 

EL 

1930 DATA 4f8d3102a9008dc602a90c8dc5 

HN 

1940 DATA 02a9408d£402a9078dd9028dda 

KU 

1950 DATA 0220984ea9008d604£8d614£8d 

NA 

1960 DATA 624£4cdd4620464d20f34ba980 

SF 

1970 DATA 851Ia9008d634f8d644f8d5d4f 

PU 

1980 DATA 8d664fa9ff8d£c©28d674fa514 

TZ 

1990 DATA c514£0fcee5d4fad5e4f£003ce 

AZ 

2000 DATA 5e4fadfc028d564fa90f8d574f 

LI 

2©10 DATA ad5d4£2903d006ad78028d574f 

MB 

2©20 DATA ad564fa203dd6a4££006cal0f8 

LL 

2030 DATA 4c2b45bd6e4£8d574fad574£c9 

ZC 

2040 DATA 0fd0034c0a46c907d02ea9018d 









vz 

2050 

DATA 

5c4£ae584£e8e8ac594£20914a 


QJ 

HD 

2060 

DATA 

ae584fe00£b009e8ac594£205b 


CL 

PW 

2070 

DATA 

4a9008a90a8d5e4f4c6745ee58 


FF 

YY 

2080 

DATA 

4£4c0346ad574fc90bd02ea903 


XV 

UE 

2090 

DATA 

8d5c4£ae584fcaf001caac594£ 


FU 

PW 

2100 

DATA 

20914aae584£f009caac594f20 


HW 

OJS 

2110 

DATA 

5b4a9008a90a8d5e4f4c9c45ce 


AV 

UH 

2120 

DATA 

584£4c0346ad574£c90dd02ea9 


SR 

DO 

2130 

DATA 

028d5c4fae584£ac594£c8c820 


RA 

PR 

2140 

DATA 

914aae584fac594 £c00fb006c8 


DM 

IH 

2150 

DATA 

205b4a9008a90a8d5e4£4cdl45 


CE 

OK 

2160 

DATA 

ee594f4c0346ad574£c90ed032 


TP 

MJ 

2170 

DATA 

a9008d5c4fae584£ac594£88f0 


VJ 

MP 

2180 

DATA 

018820914aae584£ac594££006 


JB 

NV 

2190 

DATA 

88205b4a9008a90a8d5e4f4c0a 


MS 

QI 

2200 

DATA 

46ce594£a9078d664£854da9f£ 


PO 

wz 

2210 

DATA 

8dfc02ae5a4fac5b4f209d4aa9 


HX 

w 

2220 

DATA 

00a891b0ae584£ac594£209d4a 


OP 

LF 

2230 

DATA 

a252ad5e4£f007a9028d664 £a2 


MF 

CĘ 

2240 

DATA 

018al86d5c4fa00091b0ad5 84 £ 


IK 

XQ 

2250 

DATA 

8d5a4£ad594£8d5b4£20394720 


KU 

PP 

2260 

DATA 

c74a20£34bad5£4£d0034cdl47 


PR 

JE 

2270 

DATA 

a51ld0034ccf46ad564£c91cd0 


RQ 

UQ 

2280 

DATA 

034cc£46c99cd0034c224aad63 


LW 

QA 

2290 

DATA 

4fc999d005cd644f£013£8ad64 


ox 

HS 

2300 

DATA 

4f1869018d644fad634f69008d 


IP 

ZY 

2310 

DATA 

634£d8a200a000ad664£f00d29 


oc 

LL 

2320 

DATA 

03aaad664f18690aa8ce664f8c 


AE 

LB 

2330 

DATA 

00d28e01d2a200a000ad674fc9 


QV 

NK 

2340 

DATA 

f £ f 00ea8ad5d4 £ 2 9010a0a09e0 


UL 

EU 

2350 

DATA 

aaee674£8c02d28e03d24cec44 


ZT 

BN 

2360 

DATA 

208947ad654£f006ce654f4ccc 


VA 

HC 

2370 

DATA 

44a97985b2a95285b3a92b85b0 


QB 

SF 

2380 

DATA 

a95085bla202a00ablb09lb288 


HX 

BK 

2390 

DATA 

10£9a0b0a90b20444fa0b2a920 


TE 

SF 

2400 

DATA 

20444£ca!0e6a9££8d£c02ad£c 


RL 

KC 

2410 

DATA 

02c9ffd005ad8402d0f4adfc02 


ZB 

FY 

2420 

DATA 

a2ff8e£c02c9Icd0034c224aa9 


DE 

PR 

2430 

DATA 

048d654£a9008d544£8d664f4c 


OY 

AM 

2440 

DATA 

cc44ad634 £a000207647ad644£ 


IT 

TN 

2450 

DATA 

a002207647a00aa90099895388 


UZ 

Ul 

2460 

DATA 

10faa920ac654f883006998953 


XH 

LA 

2470 

DATA 

4c5847a005ad604 £ 207647a007 


VA 

QA 

2480 

DATA 

ad614£207647a009ad624f484a 


AM 

UF 

2490 

DATA 

4a4a4a208047c868290£186960 


IZ 

LY 

2500 

DATA 

99295360a900a0079900d28810 


RQ 

GV 

2510 

DATA 

faae584£ac594£209d4aa9648d 


WD 

UP 

2520 

DATA 

00d2a000a200a514186904c514 


VC 

TN 

2530 

DATA 

d0fc8al8696a9Ib08e554fa906 


MR 

MG 

2540 

DATA 

38ed554f0a8d01d2e8e00690df 


PD 

HU 

2550 

DATA 

a90091b08d00d28d01d260fSad 


HQ 

VD 

2560 

DATA 

634£29£08d634£ad644£4a4a4a 


CJ 

ZS 

2570 

DATA 

4a0d634fa99938ed634£186d62 


PL 

FS 

2580 

DATA 

4£8d624£a9006d614£8d614fa9 


CK 

ZG 

2590 

DATA 

006d604£8d604£d8a900a00799 


ZY 

BE 

2600 

DATA 

00d28810faae584£ac594£209d 


RW 

Dl 

2610 

DATA 

4aa9278d01d2a9968d554£a000 


DO 

CF 

2620 

DATA 

a2208a4a4al86514c514d0£c8a 


SA 

DA 

2630 

DATA 

29031869529Ib08a29010a0a0a 


SS 

FI 

2640 

DATA 

186d554£8d00d2ad554£38e903 


VF 

BC 

2650 

DATA 

8d554£cal0d5a90091b08d00d2 


DA 

YT 

2660 

DATA 

8d01d2a99685b0a95185bla20£ 


NL 

QG 

2670 

DATA 

a00fblb038e90ac910b004 a 9 5 a 


SV 

CZ 

2680 

DATA 

91b08810£0a0b0a92020444fca 


GK 

LR 

2690 

DATA 

10e4a9648d00d2a9968d02d2a9 


PO 

PY 

2 700 

DATA 

C88d04d2a9£a8d06d2a514c514 


WU 

DY 

2710 

DATA 

£0fc20c£4aa99685b0a95185bl 


CV 

XZ 

2720 

DATA 

a97585b2a95085b3a000989lb2 


EN 

QA 

2730 

DATA 

c8d0£ba514c514£0£ca200a000 


CQ 

RM 

2740 

DATA 

blb2£0034c6849blb038e95ac9 


QC 

US 

2750 

DATA 

0690034c68499Ib2e000£01aa5 


ZI 

RU 

2760 

DATA 

b038e92085b4a5ble90085b5bl 


BP 

TG 

2770 

DATA 

b438e95ac9069004a95a91b4c0 


FH 

OK 

2780 

DATA 

00f01aa5b038e90185b4a5ble9 


NN 

DY 

2790 

DATA 

0085b5blb438e95ac9069004a9 


GB 

EZ 

2800 

DATA 

5a91b4e00f£029a5b018692085 


UE 


2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 


DATA b4a5bl690085b5a5b218691085 
DATA b6a5b3690085b7blb438e95ac9 
DATA 069006a95a9lb49Ib6c00ff029 
DATA a5b018690185b4a5bl69008Sb5 
DATA a5b218690185b6a5b3690085b7 
DATA blb438e95ac9069006a95a9lb4 
DATA 91b6c8c010b0034cbd48a0b0a9 
DATA 2020444fa0b2a91020444fe8e0 
DATA 10b0034cbb48a99685b0aS5185 
DATA bla20fa00fblb038e95ac906b0 
DATA 448810f4a0b0a92020444fcal0 
DATA e8a00?a514186904c514d0£c8c 
DATA 01d28c03d28c05d28c07d288d0 
DATA e8a900a0079900d28810faee54 
DATA 4£20464db0034ccf44a9008d54 
DATA 4f4ccc44ad0ad2290709088d01 
DATA d2ad0ad2290709088d03d2ad0a 
DATA d2290709088d05d2ad0ad22907 
DATA 09088d07d24c9248a200a9099d 
DATA 4203689d4403689d45039d4803 
DATA 9d49032056e4a002b97e4£992£ 
DATA 02b9814£99c5028810£lad844£ 
DATA 8d£402ad854£8dd902ad864£8d 
DATA da02a9£f8d£c02a514186905c5 
DATA 14d0fca9f £8d£c026c0a00209d 
DATA 4aa000blb0d0021860c940d013 
DATA blb2d00£ad5c4£1869569Ib0a9 
DATA 648d674£3860c951d00eblb2d0 
DATA 0aa90091b0a95191b218603860 
DATA 209d4aa5b085b2a5bl85b360a9 
DATA 0085bl980a26bl0a26bl0a26bl 
DATA 0a26bl0a26bl85b08aa0b02044 
DATA 4fa5b018699685b0a5bl695185 
DATA bl60ad5d4f2903£00160a99685 
DATA b0a95185bla97585b2a95085b3 
DATA a000989Ib2c8d0fba20£8a48a0 
DATA 0fblb2d021blb0a209dd874f£0 
DATA 06cal0f84cl24b8a0aaabd914f 
DATA 8dl04bbd924£8dl14b20364b88 
DATA 10d8a0b0a92020444fa0b2a910 
DATA 20444£68aacal0cl60blb01869 
DATA 0191b060a90091b060a5b038e9 
DATA 2085b4a5ble90085b5blb4£00a 
DATA a94091b0a9ff8d674f60a90091 
DATA b0a9569Ib460a5b018690185b4 
DATA a5bl690085b5a5b218690185b6 
DATA a5b3690085b7blb4£00aa94091 
DATA b0a9 £ £ 8d6 7 4 f 60a90091b0a9 5 7 
DATA 91b491b660a5b018692085b4a5 
DATA bl690085b5a5b218691085b6a5 
DATA b3690085b7blb4£00aa94091b0 
DATA a9££8d674£60a90091b0a95891 
DATA b49Ib660a5b038e90185b4a5bl 
DATA e90085b5a5b238e90185b6a5b3 
DATA e90085b7blb4£00aa9409Ib0a9 
DATA ff8d674£60a90091b0a95991b4 
DATA 91b660a9008d5£4fa99685b0a9 
DATA 5185bla20fa00fblb038e956c9 
DATA 04b003ee5£4£blb0203b4d9003 
DATA 4c994cee5£4£a9008d554£a5b0 
DATA 38e92085b2a5ble90085b3blb2 
DATA 203b4db008ad554f09018d554f 
DATA a5b018690185b2a5bl690085b3 
DATA blb2203b4db008ad554£09028d 
DATA 554£a5b018692085b2a5bl6900 
DATA 85b3blb2203b4db008ad554£09 
DATA 048d554£a5b038e90185b2a5bl 
DATA e90085b3blb2203b4db008ad55 
DATA 4£09088d554fad554£09409lb0 
DATA c90a9007c91ab00320b84c8830 
DATA 034c044ca0b0a92020444£ca30 
DATA 034c024c60ad5d4£2901d005bl 
DATA b04cc£4cblb0186901c9la9002 
DATA a90a9Ib0a5b038e92085b2a5bl 
DATA e90085b3200e4da5b018690185 
DATA b2a5bl690085b3200e4da5b018 
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BT 

3570 DATA 692085b2a5bl690085b3200e4d 

ZU 

3580 DATA a5b038e90185b2a5ble90085b3 

PV 

3590 DATA blb2203b4db025ad0ad2290f18 

TD 

3600 DATA 690a9lb2f8ad624f1869108d62 

HW 

3610 DATA 4fad614f69008d614fad604t69 

DR 

3620 DATA 008d604fd860c9409005c950b0 

VN 

3630 DATA 01603860203947a9b585b0a953 

QB 

3640 DATA 85blae544ff0328a48a210a000 

VG 

3650 DATA blb08d554fe6b0d002e6bla5b0 

SB 

3660 DATA Cd684fa5bled694fb012ad554f 

ex 

3670 DATA c99bd0e2cal0dd68aacad0d44c 

DG 

3680 DATA 884d683860a97585b2a95085b3 

AK 

3690 DATA a900a891b2c8d0fb8d584f8d59 

ZK 

3700 DATA 4f8d5a4f8d5b4fa200a5b0cd68 

ZI 

3710 DATA 4fa5bled694fb0538a48a000bl 

YL 

3720 DATA b0c99bf034c926d01068488d59 

TM 

3730 DATA 4f8d5b4f8c584f8c5a4fblb0a2 

OZ 

3740 DATA 05dd724ff003cad0f8bd784fc9 

UP 

3750 DATA 0ad008ad0ad2290f18690a91b2 

yw 

3760 DATA c8c01090c6c898a0b020444fa0 

DS 

3770 DATA b2a91020444f68aae8e01090al 

FJ 

3780 DATA a97585b0a95085bla000blb038 

AR 

3790 DATA e90ac910900ec8d0f46868a950 

Wv 

3800 DATA 48a95c484c0a4aa97d85b4a952 

XD 

3810 DATA 85b5a9ec85b6a95085b7a2008a 

SR 

3820 DATA 48a514186904c514d0fca5b485 

IZ 

3830 DATA b0a5b585bla5b685b2a5b785b3 

sx 

3840 DATA 8a382a8d554faaac554fblb291 

ZU 

3850 DATA b08810f9a0b0a92020444fa0b2 

MZ 

3860 DATA a91020444fcal0e5a5b438e921 

IY 

3870 DATA 85b4a5b5e90085b5a5b638e911 

YU 

3880 DATA 85b6a5b7e90085b768aae8e008 

RZ 

3890 DATA 90a21860a00098997551997552 

XC 

3900 DATA 99b552c8d0f4a20020f24ea204 

HC 

3910 DATA 20f24ea20820f24ea20c20f24e 

SA 

3920 DATA a9aa85b0a95185bla9cf85b2a9 

IC 

3930 DATA 4f85b3a208a008blb291b08810 

PL 

3940 DATA f9a0b0a92020444fa0b2a90920 

ZQ 

3950 DATA 444fcal0e6a00ablb299095388 

GI 

3960 DATA 10f860bda54f85b0bda64f85bl 

KB 

3970 DATA bda74fa8bda84faa8c554fa93b 

OM 

3980 DATA 91b088d0fba91b91b0ac554fa9 

Z6 

3990 DATA lc9Ib0a0b0a92020444fa000a9 

TP 

4000 DATA If91b0ac554f91b0cad0ebac55 

BE 

4010 DATA 4fa93b91b088d0fba91d91b0ac 

ZR 

4020 DATA 554fa91e91b060187900009900 

LW 

4030 DATA 00a90079010099010060000000 

ZC 

4040 DATA 00000000000000000000000000 

LY 

4050 DATA 00000000b55307060f0e070b0d 

HI 

4060 DATA 0e202625236f2a00005150400a 

TE 

4070 DATA 874f7450565758595a5b5c5d5e 

YA 

4080 DATA 5f364b5a4b8d4bc04b294b294b 

BC 

4090 DATA 294b294b294b314b7551111188 

SA 

4100 DATA 510c0ae8520c0368530c027070 

JI 

4110 DATA 70427551020202020202020202 

DO 

4120 DATA 02020202020202024Ib54f3e3f 

SY 

4130 DATA 707172737475767e7f7778797a 

FN 

4140 DATA 7b7c7d00000022391a00000000 

CL 

4150 DATA 2421322935333a0000003c2f3d 

AG 

4160 DATA 2e210000000000000000000000 

OQ 

4170 DATA 00080900050606070034212a25 

ZM 

4180 DATA 2d2e2923250000213421322900 

DN 

4190 DATA 0034292d251a302f292e3433lb 

OB 

4200 DATA 3b3b3b3b3b3b3b3b3blclf2721 

vx 

4210 DATA 2d25002f3625321fId3b3b3b3b 

SY 

4220 DATA 3b3b3b3b3ble4272616b20706c 

LW 

4230 DATA 616e737a212121fd9b4e69656b 

LL 

4240 DATA 6f6d706c65746e6120706c616e 

OJ 

4250 DATA 737a61212121fd9be002e3025d 

KI 

4260 DATA 440044 



Powyższe dane należy przetworzyć na plik binarny 
przy pomocy Zgrywusa + z TA 2/92 Otrzymany w ten 
sposób program nic zawiera definicji plansz, lecz kazdv 
może Je bez trudu wykonać sam. W tym celu można 
użyć dowolnego edytora tekstów (np Panther, QA albo 


XLFrlend) Każda plansza może sic składać / następują¬ 
cych elementów 

& - spychacz 

# - mur Iwardy 

% - ru< homa przeszkoda 

o - pofcmnlk z materiałem radioaktywnym 

• - pojemnik z materiałem bliskim masie krytycznej 

Plansze mają wymiary 16 na 16 elementów, a Ich gra 
nlee me muszą bye oznaczane żadnymi znakami (Jak to 
było w THE JET") Poszczególne plansze należy oddzie¬ 
lić pusią" linia. Na każdej planszy musi znajdować się 
co najmniej jeden znak * 

Poniżej znajduje sl%klika przykładowych plansz które mogą 
się przydać do szybkiego rozpoczęcia zabawy Plansze łączy się 
z właściwą gra za pomocą koplcra seaiająccgo (np APPENI) 
z TA 5/91) lub przy uzyt lu opcji "append" DOS-a 

# 

& # « 

# # # o 
# # 


o 

# 

# 

*#### 

* * 

*«* 

##* 

* * 

###** 

# 



# 


o 

# 

# 


o # 

# 

* 

# 

# 



# 

## 1 ( 111111 ##** 

# # 

# #%#*#* # 

# # % # 

# # o # # 

# % # # 

# ###*«# *###### 
# * # 
* & * 
*#*#### ###*«* * 
# % * * 

# # o # # 

# # % # 



# o # 

* # # * 

####* ## * 

# % % # 

# % % % # 

# % % % «*### * 

####«##### o * 

* * 

###############* 

Życząc wesołych Świąt 1 szczęśliwego Nowego Roku 
zegna się z Wami 

Dariusz Zoina 
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Poprzedni odcinek cyklu zakończyli¬ 
śmy przykładem pokazującym gracza na 
ekranie. Mogliśmy zobaczyć go bez żad¬ 
nych problemów, gdyż Jego kolor był róż¬ 
ny od Jednolitego koloru tła W przypad¬ 
ku, gdy na ekranie znajduje się więcej 
elementów graficznych w różnych kolo¬ 
rach. to należy określić, czy i które kolo¬ 
ry mają być przesłonięte obiektem 1 od¬ 
wrotnie Nazywamy to priorytetem - kolor 
o wyzszym priorytecie będzie zasłaniał 
kolor o priorytecie nlzszym 

Priorytety 

Rejestrem odpowiedzialnym za prioryte¬ 
ty Jest Gtlactl (SD01B) i Jego cień Gtlctls 
(S026F) Bity 0-3 tego rejestru określają 
następujące priorytety kolorów 


bltO 

bit 1 

bit 2 

bit 3 

ColpmO 

ColpmO 

ColplO 

ColplO 

Colpml 

Colpml 

Colpfl 

Colpfl 

Colpm2 

ColplO 

Colpl2 

ColpmO 

Colpm3 

Colpfl 

Colpl3 

Colpml 

ColplO 

Colpf2 

ColpmO 

Colpm2 

Colpfl 

Colpl3 

Colpm 1 

Colpm3 

Colfp2 

Colpm2 

Coipm2 

Colpf2 

Colfp3 

Colpm3 

Colpm 3 

Colpf3 

Colbak 

Colbak 

Colbak 

Colbak 


Ustawienie Jednego z tych bitów ustawia 
kolory w kolejności przedstawionej w ta¬ 
belce (pionowe kolumny). Ustawienie kil¬ 
ku bitów ustala nieokreślony priorytet 
Gdy obszary o tym samym priorytecie się 
pokrywają to uzyskują kolor czarny. 

W rejestrze Gtlactl ważną rolę odgry¬ 
wają także bity 4 i 5 Ustawienie pier¬ 
wszego z nich nadaje pociskom kolor 
określany przez ColpfS. dzięki czemu 
uzyskuje się piątego gracza Ponieważ 
gracz ten Jest połączeniem czterech poci¬ 
sków to każda Jego część może być poru¬ 
szana oddzielnie. 

Natomiast bit piąty oddzlaływuje na 
priorytety Jego ustawienie spowoduje, 
ze gdy nastąpi nałożenie dwóch graczy to 
Ich część wspólna otrzyma kolor powsta¬ 
ły w wyniku operacji logicznej ORA na 
dwóch kolorach tych graczy 

Kolizje 

Grafika PMG nic dawałaby dużych mo¬ 
żliwości, gdyby nie fakt, ze obiekty można 
w prosty sposób przemieszczać 1 kontrolo¬ 
wać ich zderzenia, zarówno między sobą 
Jak I elementami normalnej grafiki Takie 
spotkania nazywane są kolizjami Podczas 
zderzeń w rejestrach kolizji pojawiają się 
odpowiednie wartości. Tych rejestrów Jest 


16 Pierwsza ósemka określa kolizje 
obiektów z polem gry. 


nazwa 

rejestru 

adres 

(hex) 

kolor 

koli- 

zja 

1 

2 

3 

KolmOpf 

D000 

0 

1 

2 

P o 

Kolmlpf 

L)001 

0 

1 

2 

P 1 

Kolm2pf 

D002 

0 

1 

2 

P 2 

KolmSpf 

D003 

0 

1 

2 

P 3 

KolpOpf 

D004 

0 

1 

2 

g 0 

Kolplpf 

DOOS 

0 

1 

2 

g 1 

Kolp2pf 

D006 

0 

1 

2 

g 2 

Ko!p3pf 

D007 

0 

1 

2 

g 3 


Cyfry umieszczone w kolumnach Ko¬ 
lor l-Kolor3 oznaczają, który bit rejestru 
zostanie ustawiony po wykryciu kolizji, 
np. Jeśli gracz "zderzy się' z kolorem 
2 ekranu to w rejestrze Colp2pf zostanie 
ustawiony bit 1. 


Kolejne osiem rejestrów określa kolizje 
obiektów 


Rejestr 

Adres 

go 

gl 

g2 

g3 

kolizja 

KolmOp 

Dooe 

0 

1 

2 

3 

P o 

Kolmlp 

DOOS 

0 

1 

2 

3 

P 1 

Kolm2p 

DOOS 

0 

1 

2 

3 

P 2 

Kolm3p 

DOOS 

0 

1 

2 

3 

P 3 

KolpOp 

DOOS 

0 

1 

2 

3 

g o 

Kolplp 

DOOS 

0 

- 

2 

3 

g 1 

Kolp2p 

DOOS 

0 

1 

- 

3 

g 2 

Kolp3p 

DOOS 

0 

1 

2 

- 

g 3 


Rejestry kolizji można tylko odczyty¬ 
wać. gdyż przy zapisie komórki pamięci 
o tych adresach pełnią Inną funkcję 
Z tego wynika, ze nie mogą być kasowa¬ 
ne Jest to możliwe dzięki Istnieniu reje¬ 
stru Hltclr (SD01E) Wpisanie dowolnej 
wartości do tego rejestru skasuje warto¬ 
ści w rejestrach kolizji 

Tak więc procedura wykrywania koli¬ 
zji powinna rozpocząć się sprawdzeniem 
pewnych zdarzeń w rejestrach kolizji, na¬ 
tomiast zakończyć wpisaniem dowolnej 
wartości do Hltclr. aby umożliwić odczy¬ 
tanie kolejnych kolizji 

Vdelay 

Ważnym rejestrem jest również Vdelay 
(SD01C) Służy on do opóźniania o jedną 
linię przesyłania danych z rejestrów grafi¬ 
ki na ekran w przypadku korzystania 
z rozdzielczości dwullniowej Daje on mo¬ 
żliwość umieszczenia obiektu na ekranie 
w rozdzielczości dwullniowej z dokładno¬ 
ścią jednej linii ekranu Kolejne bity reje¬ 
stru Vdeiay odpowiadają kolejnym poci¬ 
skom I graczom 


bu U pin i-.k 0 


bit 1 

pocisk 1 

bit 2 

pocisk 2 

bit 3 

pocisk 3 

bit 4 

gracz 0 

bit 5 

gracz 1 

bil6 

gracz 2 

bit 7 

gracz 3 


Po przeczytaniu tylu suchyt h informacji 
należy się czytelnikom kilka przykładów 


Przykład 1 


..prezentuje przesuw pionowy lewo 
wych danych zapisanych w pamięci PMG 


Program 

Equ 

$8800 

List mem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dsk 

Equ 

%00100000 

Cdtma2 

Equ 

$0228 

Cdtmv2 

Equ 

$021A 

Colpm0s 

Equ 

$02C0 

Dmactls 

Equ 

$02 2 F 

Gtlctls 

Equ 

$02 6 F 

Hposp0 

Equ 

$D000 

Sizep0 

Equ 

$0008 

Pmbase 

Equ 

$0407 

Pmcntl 

Equ 

$0010 

Random 

Equ 

$D20A 

Help 

Equ 

$F0 

Help 2 

Equ 

$F2 

Pm a3dr 

Equ 

$A000 

Play 1 

Equ 

Pm addr+$0400 

Play 2 

Equ 

Pm addr+$0500 

Play 3 

Equ 

Pm addr+$0600 

Play_4 

Equ 

Opt 

Org 

Pm_addr+$0700 

List err+Code mem 
Program 



Jsr 

In±t_jpl 


Ldx 

<Timer 2 


Ldy 

>Timer 2 


Lda 

ł$01 


Stx 

Cdtma2 


Sty 

Cdtma2+$01 


Sta 

Cdtmv2 


Sta 

Rts 

Licznik 

Init_pl 

Ldx 

Txa 

f$00 

LI 

Sta 

Play l f x 


Sta 

Play_2,x 


Sta 

Play_3,x 


Sta 

Inx 

Play_4,x 


Bne 

LI 


Ldx 

#$03 


Ldy 

ł$01 


Lda 

>Pm_addr 


Sta 

Pmbase 

L2 

Lda 

Kolory,x 


Sta 

Colpm0s,x 


Lda 

Pozycje,x 


Sta 

Hposp0,x 


Lda 

#$03 


Sta 

Dex 

Sizep0,x 


Bpi 

L2 


Lda 

ł$3E 


Sta 

Dmactls 


Sty 

Iny 

Gtlctls 


Sty 

Rts 

Pmcntl 




























































Licznik 

Dta 

B($01) 

Timer 2 

Dec 

Licznik 


Ldx 

Licznik 


Bne 

L4 


Jsr 

Wybierz 


Sta 

Licznik 


Ldx 

#$00 

L3 

Lda 

Adresy,x 


Sta 

Inx 

Help 


Lda 

Adresy,x 


Sta 

Inx 

Txa 

Pha 

Help+$01 


Ldy 

#$40 


Jsr 

Tax 

Wybierz 


Lda 

Bity-$01,x 


Sta 

Pla 

Tax 

(Help),y 


Cpx 

#$08 


Bne 

L3 

L4 

Ldx 

#$00 

L5 

Lda 

Adresy,x 


Sta 

Inx 

Help 


Lda 

Adresy,x 


Sta 

Inx 

Help+$01 


Lda 

Cle 

Help 


Adc 

#$01 


Sta 

Help 2 


Lda 

Help+$01 


Sta 

Help 2+$01 


Ldy 

ł$B0 

L6 

Lda 

(Help),y 


Sta 

Dey 

(Help_2),y 


Cpy 

#$40-$01 


Bne 

L6 


Ldy 

#$40 


Lda 

#$00 


Sta 

(Help),y 


Cpx 

#$08 


Bne 

L5 


Lda 

#$01 


Sta 

Rts 

Cdtmv2 

Wybierz 

Lda 

Random 


And 

clc 

#$07 


Adc 

Rts 

#$01 

Adresy 

Dta 

A(Play 1),A(Play 2) 


Dta 

A(Play_3),A(Play_4) 

Bity 

Dta 

B( $80) ,B( $40) 


Dta 

B($20),B($10) 


Dta 

B($08),B($04) 


Dta 

B($02),B($01) 

Pozycje 

Dta 

B($40),B($60) 


Dta 

B($80),B($A0) 

Kolory 

Dta 

B($06),B($08) 


Dta 

B($0A),B($0C) 


End 

ot file 


Program rozpoczyna się skokiem do 
procedury Inlt_pl. gdzie zerowany Jest 
obszar graflki PMG, ustawiany Jest 
Pmbase, kolory, petycje 1 rozmiary gra¬ 
czy Na koniec trzy najważniejsze rejestry 
Dmactls, Gtictls 1 Pmcntl otrzymują war¬ 
tości umożliwiające ukazanie się obie¬ 
któw Program główny zawiera Jeszcze 
tylko inicjację przerwania Tlmer 2. 

Procedura przerwania rozpoczya się od 
etykiety Timer_2 Zmienna Licznik okre¬ 
śla przerwy pomiędzy kolejnymi losowa¬ 


niami punktów umieszczanych na ekra¬ 
nie Dlatego też punkty są w dużych od 
leglośclach od siebie i nie zasłaniają cał¬ 
kowicie obrazu W każdym obiegu pro¬ 
cedury przerwania licznik Jest zmniej¬ 
szany W przypadku, gdy nie Jest zerem 
to dane grafiki PMG są przepisywane 
o Jeden bajt w dół. Natomiast gdy Licz¬ 
nik osiągnie wartość zero to po drodze 
losowana Jest nowa wartość dla Liczni¬ 
ka i losowane są punkty poprzez usta¬ 
wienie losowo wybranego bitu w odpo¬ 
wiednim bajcie grafiki PMG W progra¬ 
mie wykorzystaliśmy rejestr Random 
(SD20A), z którego odczytywane są war¬ 
tości losowe. 


Przykład 2 


Przykład ten demonstruje poziomy 
scrolling tekstu przy użyciu grafiki PMG 


Program 

Equ 

$8800 


List mem 

Equ 

%00000110 


List err 

Equ 

*00000101 

L5 

Codę mem 

Equ 

*00010000 

Codę dsk 

Equ 

*00100000 

L6 

Cdtma2 

Equ 

$0223 


Cdtmv2 

Equ 

$021A 


Charsetl 

Equ 

$E000 


Colpm0s 

Equ 

$02C0 


Dmactls 

Equ 

$02 2 F 


Gtictls 

Equ 

$02 6 F 


Hposp0 

Equ 

$D000 

L7 

Pmbase 

Equ 

$D407 

Pmcntl 

Equ 

$D01D 


Sizep0 

Equ 

$D008 


Adres 

Equ 

$F0 


Licznik 

Equ 

$F2 


Pomoc 

Equ 

$F3 


Pomoc 2 

Equ 

$F5 


Tekst Ad 

Equ 

$F7 

L8 

Pm_adr 

Equ 

$A000 


opt 

List err+Code_mem 



Org 

Program 



Ldx 

#$00 



Txa 



L0 

Sta 

Play 1,x 



Sta 

Play 2,x 



Sta 

Play_3,x 



Sta 

Play_4,x 



Inx 




Bne 

L0 



Ldx 

<Tekst 

L9 


Ldy 

>Tekst 


Lda 

#$08 



Stx 

Tekst_Ad 



Sty 

Tekst Ad+$01 



Sta 

LicznTk 



Lda 

>Pm adr 



Sta 

Pmbase 



Ldx 

C$03 


LI 

Lda 

ł$0F 



Sta 

Colpm0s, x 



Lda 

Pozycje,x 



Sta 

Hposp0,x 

L10 


Lda 

#$03 


Sta 

Sizep0,x 



Dex 




Bpi 

LI 



Ldx 

#$3E 



Stx 

Dmactls 



Ldy 

ł$02 



Sty 

Pmcntl 



Dey 




Sty 

Gtictls 

LII 


Ldx 

CTimer 2 


Ldy 

>Timer 2 



Lda 

#$01 

Koniec 


Stx 

Cdtma2 



Sty Cdtma2+$01 
Sta Cdtmv2 
Rts 

Dec Licznik 
Beq L5 

Łdx #$00 
Lda Adresy,x 
Sta Pomoc- 
Sta Pomoc_2 
Inx 

Lda Adresy,X 
Sta Pon»oc+$01 
Sta Pomoc_2+$01 
Dec Pomoc_2+$01 
Inx 

Ldy #$40 
Cle 

Lda (Pomoc),y 
Asi g 

Sta (Pomoc),y 
BCC L4 

Lda (Pomoc_2),y 

Ora #$01 

Sta (Pomoc_2),y 

Dey 

Bpi L3 
Cpx #$0A 
Bne L2 
Jmp Koniec 

Ldx #$00 

Ldy $00 

Lda (Tekst_ad),y 

Jsr Oblicz_adres 

Lda Adresy,x 

Sta Pomoc 

Lda Adresy+$01,x 

Sta Pomoc+$01 

Txa 

Pha 

Lda (Adres),y 

Pha 

Tya 

Asi g 

Asi g 

Asi g 

Tay 

Pla 

Ldx #$07 

Sta (Pomoc),y 

Iny 

Dex 

Bpi L8 

Tya 

Lsr g 

Lsr g 

Lsr g 

Tay 

Cpy #$08 
Bne L7 

Inc Tekst_ad 
Bne L9 

Inc Tekst_ad+$01 

Pla 

Tax 

Inx 

Inx 

Cpx #$0A 
Bne L6 

Sec 

Lda Tekst_ad 
sbc #$04 
Sta Tekst_ad 
Bcs LI© 

Dec Tekst_ad+$01 
Ldx Tekst_ad 
Ldy Tekst_ad+$01 
Cpy >Ktekstu 
Bne LII 
Cpx <Ktekstu 
Bne LII 
Ldx <Tekst 
Ldy >Tekst 
Stx Tekst_ad 
Sty Tekst_ad+$01 
Ldx #$08 
Stx Licznik 
Lda t$01 
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gp 

■ 

5£.\ = .)4r 

PfSRPFt 


Sta 

Rts 

Cdtmv2 

Oblicz 

adresy 

Pha 


And 

#$7F 


Lsr 



Lsr 

§ 


Lsr 

§ 


Lsr 

e 


Lsr 

Cle 

e 


Adc 

>Charsetl 


Sta 

Pla 

Adres+$01 


And 

#$ 1F 


Asi 

@ 


Asi 

e 


Asi 

§ 


Sta 

Rts 

Adres 

Pozycje 

Dta 

B($40),B($60) 


Dta 

B{$80),B($A0) 

Play_l 

Equ 

Pm Adr+$0450 

Play 2 

Equ 

Pm Adr+$0550 

Play_3 

Equ 

Pm Adr+$0650 

Play 4 

Equ 

Pm Adr+$0750 

PlayD 

Equ 

Pm Adr+$0850 




Nasz program realizuje to przy użyciu 
rozkazów BCC i ORA (okolice etykiety 
L3) Nawiasem mówiąc zamiana BCC na 
BCS daje ciekawy efekt Bitowe przesu¬ 
wanie liter powtarzane Jest 8 razy (1 oczy¬ 
wiście uzależnione Jest od Licznika) 

Przykład 3 

(o prosta gra zrealizowana przy uży¬ 
ciu PMG Na ekranie umieszczane są 
dwie postacie strzelające do siebie Za 
każde trafienie przydzielana jest losowa 
Ilość punktów 


L2 


L3 


Sta Pomoc- $01 
Ldy #$00 
Lda (Pomoc),y 
Pha 
Asi g 

Sta Pomoc3 

Pla 

Asi @ 

Asi @ 

Asi 0 
Sec 

Sbc Pomoc3 
Sta Pomoc3 
Tya 
Pha 

Ldx Pomoc3 
Ldy #$00 
Lda Znaki,x 
Sta (Fomoc2),y 
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Adresy Dta A(Play_l),A(Play_2) 
Dta A(Play_3),A(Play_4) 
Dta A(Play_D( 

Tekst Equ * 

Dta D' Tajemnice Atari ' 
Dta D' Tomasz Bielak i' 

Dta D' Rafał Bielecki' 
KTekstu Dta D' 

End of file 

Program główny czyści obszar PMG na¬ 
stępnie iniejuje grafikę PMG 1 przerwania 
Umera 2 podobnie, jak w poprzednim 
przykładzie Poza tym program ustawia 
adres tekstu (Tekst ad) i Licznik 

Na ekranie znajduje się cziereoh gra¬ 
czy w poczwórnej szerokości Gracze 
umieszczeni są w tych samyrh miejscach 
ekranu obok siebie I Ich pozycja nie 
zmienia się Procedurę przerwania moż¬ 
na podzielić na dwie części Jedna 
z nirh tworzy litery w obszarze PMG 
druga przesuwa Je Ważną rolę odgrywa 
tu Licznik Gdy ma wartość zero to two¬ 
rzone Jest pięć nowych liter Pląta litera 
nie jest wyświetlana lecz bierze udział 
w trakcie przesuwania tekstu Dane dla 
kolejnej litery pobierane są ze stand¬ 
ardowego zestawu znaków Atarl - Char- 
setl (SEOOO) Adres danych znaku obli¬ 
cza procedura Obliez_adresy Jak wie¬ 
my, każdy znak to 8 bajtów Jednak 
gracz o wysokości ośmiu linii ekranu Jest 
za mały I byłby zbyt "spłaszczony", zwła¬ 
szcza przy poczwórnej szerokości obie¬ 
któw Dlatego tez każdy bajt matrycy 
znaków powielany jest osiem razy w pa¬ 
mięci PMG Tak dzieje się z wszystkimi 
pięcioma literami Po tej operacji cztery 
litery pojawiają się na ekranie Płynne 
przesuwanie tekstu realizowane Jest przy 
niezerowej wartości Licznika Przesuw 
płynny zmusza do przesuwania bitów po¬ 
szczególnych bajtach pamięci PMG Do 
tego najlepiej nadaje się rozkaz ASL pro¬ 
cesora, dlatego że bit 7 przesuwanego 
znaku umieszczany jest w znaczniku 
C procesora Jeśli Jest on ustawiony, to 
należy go odtworzyć w kolejnym graczu 


Program 

Equ $8800 


lnx 

Iny 


List mem 

Equ %00000110 


Cpy 

#$06 

List err 

Equ %00000101 


Bne 

L3 

Codę mem 

Equ %00010000 


Cle 


Codę dsk 

Equ %00100000 


Lda 

Pomoc2 




Adc 

#$08 

Cdtma2 

Equ $0228 


Sta 

Pomoc2 

Cdtmv2 

Equ $021A 


Pla 


Colpm0s 

Equ $02C0 


Tay 


Dmactls 

Equ $022F 


Iny 


Gtictls 

Equ S026F 


Cpy 

#$06 

Hltclr 

Equ $D01E 


Bne 

L2 

Hposp0 

Equ SD000 


Pla 


Hposp2 

Equ $D002 


Tax 


Hposp3 

Equ $D003 


Rts 


Hposm0 

Equ $D004 




Jstick0 

Equ $0278 

* DODAJ 

PUNKT 

(X-NR GRACZA) 

Kolm0p 

Equ $D008 




Nmien 

Equ $D40E 

Dodaj 

Lda 

Score,x 

Pmbase 

Equ $D407 


Bne 

L4 

Pmcntl 

Equ $D01D 


Lda 

Score+$02,x 

Random 

Equ $D20A 


Beq 

L8 

Sizep0 

Equ $D008 

L4 

Txa 


Trig0s 

Equ $0284 


Pha 





Cpx 

#$01 

Poz_0x 

Equ $0600 


Bne 

L5 

Poz_lx 

Equ $0601 


Ldx 

#$06 

Po z 0y 

Equ $0602 

L5 

Ldy 

#$00 

Poz ly 

Equ $0603 

L6 

Inc 

Cyfry0,x 

Pm 0x 

Equ $0604 


Lda 

Cyfry0,x 

Pm_lx 

Equ $0605 


Cmp 

#$0A 

Pm 0y 

Equ $0606 


Bne 

L7 

Pm ly 

Equ $0607 


Lda 

#$00 

Docf m@ 

Equ $0608 


Sta 

Cyfry0,x 

Dod ml 

Equ $0609 


Inx 


Cyfry0 

Equ $060A 


Iny 


Cyfryl 

Equ $0610 


cpy 

#$06 

Score 

Equ $0616 


Bne 

L6 

Kier 0 

Equ $061A 

L7 

Pla 


Kier 1 

Equ $06 IB 


Tax 


M0 

Equ $061C 


Dec 

Score,x 

Ml 

Equ $06 ID 


Lda 

Score,x 

Przyc0 

Equ $061E 


Cmp 

#$FF 

Przycl 

Equ $061F 


Bne 

L8 




Dec 

Score+$02,x 

Pomoc 

Equ $F0 

L8 

Rts 


Pomoc2 

Egu $F2 




Pomoc3 

Equ $F4 

* POKAZ 

GRACZA (X-NR) 

Adr_pl 

Equ $A000 

Pokaz gr Txa 



Opt List err+Code mem 


Pha 



Org Program 


Cle 





Adc 

>Adr_pl+$400 


Jmp Start 


sta 

Pomoc+$01 




Lda 

Poz_0y,x 

* WYŚWIETLA PUNKTY 


Sta 

Pomoc 

* (X-NR GRACZA) 


Lda 

Poz_0x,X 




Sta 

Hposp0,x 


Punkty 


LI 


Txa 

Pha 

Lda #$60 

Sta Pomoc2 

Lda <Cyfry0 

Ldy >Adr_pl+$0600 

Cpx ł$01 

Bne LI 

Lda <Cyfryl 

Ldy >Adr_pl+$0700 

Sta Pomoc 

Sty Pomoc2+$01 

Lda >Cyfry0 


Lda Kier_0,x 
Tax 


L9 

L10 


Cpx 

Bne 

Ldx 

Ldy 

Lda 

Sta 

Inx 

Iny 

Cpy 

Bne 


#$0ł 

L9 

#$09 

#$00 

Wygląd,x 
(Pomoc(,y 


#$0A 

L10 


'■I': 


ncDn 


I i .. . 



Pla 


Cle 


Tax 


Adc #$06 


Rts 

L22 

Sta Pm 0x,x 




Sta Hposm0,x 

* ZMAZ POCISK 


Jsr Pokaz 



L2 3 

Lda M0,x 

Zmaz 

Lda Pm 0y,x 


Beq L25 


Tay 


Cle 


Lda Adr_pl+$0300,y 


Lda Pm 0x,x 


And Zgaszenie,x 


Adc Do3 m0,x 


Sta Adr_pl+$0300,y 


Sta Pm_0x,x 


Rts 


Sta Hposm0,x 




Cmp #$31 

* POKAZ 

POCISK 


Beq L24 




Cmp #$32 

Pokaz 

Lda Pm 0y,x 


Beq L24 


Tay 


Cmp # SCC 


Lda Adr_pl+$0300,y 


Beq L24 


Ora Zapalenie,x 


Cmp ł$CD 


Sta Adr_pl+$0300,y 


Bne L25 


Rts 

L24 

Lda #$00 




Sta M0,x 

* TIMER2 



Jsr Zmaz 



L25 

Inx 

Timer 2 

Ldx #0 


Cpx #$02 

LII 

Lda Jstick0,x 


Beq L26 


Lsr ® 


Jmp LI1 


Bcs LI3 




Pha 

L26 

Ldx #$00 


Lda Poz 0y,x 

L27 

Lda Kolm0p,x 


Cmp #$22 


Cmp Kolizje,X 


Beq LI2 


Bne L29 


Dec Poz 0y,x 


Cle 

L12 

Pla 


Lda Random 

L13 

Lsr § 


And #$3F 


Bcs L15 


Adc ł$01 


Pha 


Adc Score,x 


Lda Poz 0y,x 


Sta Score,x 


Cmp ł$D? 


Bcc L28 


Beq L14 


Inc Score+$02,x 


Inc Poz 0y,x 

L28 

Jsr Zmaz 

LI 4 

Pla 

L29 

Jsr Dodaj 

LIS 

Lsr £ 


Jsr Punkty 


Bcs LI7 


Xnx 


Pha 


Cpx #$02 


Lda Poz 0x,x 


Bne L27 


Cmp ł$3D 

L30 

Lda #$01 


Beq L16 


Sta Cdtmv2 


Lda #$00 


Sta Hitclr 


Sta Kier 0,X 


Rts 


Dec Poz 0x,x 



LI 6 

Pla 



L17 

Lsr $ 

* PROGRAM 

GŁÓWNY 


Bcs L19 




Pha 

Start 

Ldx #$00 


Lda Poz_0x,x 


Txa 


Cmp #$BD 

L31 

Sta Adr_pl+$0300 


Beq L18 


Sta Adr_pl+$0400 


Lda #$01 


Sta Adrjpl+$0500 


Sta Kier_0,x 


Sta Adr_pl+$0600 


Inc Poz_0x,x 


Sta Ad r_pl+ $0700 

LI 8 

Pla 


Inx 

L19 

Jsr Pokaz_gr 


Bne L31 


Lda Tng0s,x 




Beq L20 


Lda >Adrjpl 


Lda #$00 


Sta Pmba e 


Sta Przyc0,x 


Ldx ł$03 


Jmp L23 

L32 

Lda Kolory,x 

L20 

Lda Przyc0,x 


Sta Colpm03,x 


Bne L23 


Lda #$00 


Lda ł$01 


Sta Sizep0,x 


Sta Przyc0,x 


Dex 


Lda M0,x 


Bpi L32 


Beq L21 


Łd f $32 


Jsr Zmaz 


Ldy ł$C6 

L21 

Lda ł$01 


Stx Hposp2 


Sta M0,x 


Sty Hposp3 


Lda poz 0y,x 


Ldx ł$3E 


Cle 


Stx Dmactls 


Adc #$05 


Ldx ł$01 


Sta Pmj0y,x 


Ldy ł$03 


Lda Poz 0x,x 


Stx Gtictls 


Pha 


Sty Pmcntl 


Lda Kier_0,x 




Tay 


Ldx t$03 


Lda Dodawanie,y 


Lda #$00 


Sta Dod m0,x 

L33 

Sta M0,X 


Pla 


Dex 


Cpy ł$01 


Bpi L33 


Bne L22 


Ldx #$13 



L34 

Sta Cytry0,x 


Znaki 


Dex 

Bpi L34 

Ldx #$01 
Stx Kier_0 
Dex 

Stx Kier_l 

Łdx #$46 
Ldy ł$AA 
Stx Poz_0x 
Stx Poz~0y 
Sty Poz_lx 
Sty Poz_ly 
Ldx #$00 
Jsr Punkty 
Jsr Pokaz gr 
Inx 

Jsr Punkty 
Jsr Pokaz_gr 
Ldx <Timer_2 
Ldy >Timer_2 
Stx Cdtma2 
Sty Cdtma2+$01 
Lda #$40 
Sta Nmien 
Jmp L30 

Org Programł$0400 


Dta B:$36 
Dta B $41 
Dta B($7F 

Dta B($36 

Dta B{ $00 

Dta B{$00 

Dta B{$30 

Dta B|$49 
Dta B{$4F 

Dta B($36 
Dta B($49 
Dta B($49 

Dta B($36 
Dta B{$08 
Dta B($78 

Dta B($0ć 
Dta B($49 
Dta B($79 

Dta B($06 
Dta B($49 
Dta B($7F 

Dta B($36 
Dta B($40 
Dta B($40 

Dta B($36 
Dta B($49 
Dta B($7F 

Dta B($36 
Dta B($49 
Dta B($79 


,B($7F) 

,B«$41) 

,B($36) 

,B($7F) 

,B{$00) 

,B{$00) 

,B($79) 

,B($49) 

,B($06) 

,B($7F) 
,B($49) 
,B($00) 

,B($7F) 
, B($08) 
,B $30) 

,B($4F) 
,B($49) 
,B($30) 

,B($4F) 
, B($49) 
/BI$36) 

f B($7F) 
z B($40) 
,B($00) 

,B($7F) 
i B($49) 
,B($36) 

,B($7F) 
f B($49) 
z B ( $ 30) 


Wygląd Dta B($00),B($18),B($38) 
Dta B($10),B($3C),B($FC) 
Dta B($38),B($18),B($2C) 
Dta B($00),B($18),B($1C) 
Dta B($08),B($3C),B($3F) 
Dta B($lC)/B($18) r B($34) 
Dta B($00) 

Kolory Dta B($0F),B($96) 

Dta B($S8),B($58) 
Zgaszenie Dta B($FC),B($F3) 
Zapalenie Dta B($03),B($0C) 
Dodawanie Dta B($FE),B($02) 
Kolizje Dta B($02),B($01) 

End of File 


Aby umożliwić dokładniejszą analizę 
programu podamy znaczenie zmiennych 
1 stałych w nim użytych Kolejne zmienne 
umieszczone są w kolejnych komórkach 
na 6 stronie Poz_Ox do Poz ly określąją 







ta f I &)T 

L 




pozycje obu postaci (pionowe i poziome) 
Podobnie Pm_Ox do Pm ly określają po¬ 
zycję wystrzelonych nabojów Dod mO 
1 Dod_ml określają Jaką wartość doda¬ 
wać do pozycji X pocisków Kolejne dwie 
zmienne CyfryO i Cyfry 1 sa sześeiobąjto- 
we Każdy bajt to liczba z przedziału od 
0 do 9 oznaczająca kolejną cyfrę licznika 
punktów gracza Score to czterobajtowa 
zmienna określająca ile punktów należy 
dodać każdemu z graczy w najbliższej 
przyszłości W każdym obiegu przerwa¬ 
nia dodawany jest jeden punkt dopóki 
Score każdego gracza nic wyzeruje się 
Takie zwiększanie punktów powoduje, 
ze dodane punkty nie pojawiają się naty 
ehmiast Dużym ułatwieniem od strony 
programowej Jesi zapisanie w pamięci 
najpierw dwóch młodszych bajtów pun¬ 
któw graczy, a potem starszych nic tak 
jak zwykle młodszyMarszy gracza 
0 i młodszy/starszy gracza 1 Dzięki ta¬ 
kiemu rozwiązaniu odwołania do młod 
szego lub starszego bajtu punktów gra¬ 
cza o numerze w rejestrze X stają się 
prostsze, gdyż bajt młodszy określa ety¬ 
kieta Score, starszy natomlasl Sco¬ 
re+S02 (rejestr X zawiera oczywiście nu¬ 
mer gracza) 

Kolejne dwie zmienne Kier O i Kirr l 
określają kierunek odpowiedniego gra¬ 
cza Gracz zwrócony w lewo wygląda zu¬ 
pełnie inaczej, nlz gracz obrócony w pra 
wo I te właśnie zmienne decydują o tym 
skąd pobierać dane do wyglądu postaci 

MO i M1 to zmienne logiczne Wartość 
SOI umieszczona w nich oznacza, żc po 
cisk wystrzelony przez odpowiedniego 


gracza znajduje się na ekranie i porusza 
się w stronę określoną przez kierunek 
gracza 

Za każdym obiegiem przerwania 
sprawdzane są przyciski joystick'ów obu 
graczy Zmienne PrzycO i Przycl przyj¬ 
mują wartość 1 w momencie naciśnięcia 
przycisków joystick ów, co umożliwia po- 
rusznie się pocisków i jednocześnie za¬ 
pobiega podwójnemu odczytaniu warto¬ 
ści z komrórek odpowiadających za sian 
przycisków joystick'ów 

Program główny inicjuje PMG i Timer a 
2 oraz ustawia wartości początkowe 
zmiennym Cała gra wykonywana jesi 
przez przerwanie Timer a 2 który wywo¬ 
łuje inne procedury Procedura zaczyna 
Jąca się od etykiety Punkty wyświetla 
punkty graczy pobierając dane dla wyglą¬ 
du odpowiedniej cyfry z tablicy Znaki 
Kolejna procedura. Dodaj, sprawdza czy 
nie pozostały do dodania jakieś punkty 
graczom i jeśli tak, to zwiększa odpowie¬ 
dnio Liczniki i zwiększa Score Jest ona 
wywoływana w każdym obiegu przerwa¬ 
nia Procedura Pokaz_gr umieszcza na 
ekranie graczy w odpowiednich pozy¬ 
cjach Podobne zadanie pełni procedura 
Pokaz dla pocisków, odwrotne zadanie - 
Zmaz Procedury wykorzystują maski bi¬ 
towe Zapalenie i Zgaszenie 

W samej procedurze przerwania Ti¬ 
mer a 2 nowa dla nas jest tylko obsługa 
Joystick a 

Joystick na cztery zasadnicze położe¬ 
nia w lewo w prawo, do prz<xlu 
i wstecz Osiem bitów rejestru PortA 


(SD300) przedstawia położenie dwóch 
Joystick 6w wg tabeli 


bit 

Joystick 

kierunek 

0 

0 

do przodu 

1 

0 

wstecz 

2 

0 

w lewo 

3 

0 

w prawo 

4 

1 

do przodu 

5 

1 

wstecz 

6 

1 

w lewo 

7 

1 

w prawo 


Normalnie wszystkie bity są ustawio¬ 
ne Zmiana położenia joystick a powodu¬ 
je wyzerowanie odpowiedniego bitu (iub 
bitów) Zazwyczaj Jednak korzysta się 
z rejestrów cieni JstiekO (S0278) 
i JStiekl (S0279) W pierwszym z nich 
cztery najmłodsze bity określają położe¬ 
nie joystick a 0 natomiast rejestr drugi 
określa położenie Joystick a 1 (też bity 0- 
3) Do wykrywania stanu przycisków Joy¬ 
sticków służą rejestry GTLA o nazwach 
TrigO (SD010) i Trigl (SDOU) oraz ich 
clenie TrigOs ($0284) i Trigls ($0285) 
Skasowanie bitu 0 oznacza ze przycisk 
został naciśnięty 

Gra może uprzyjemnić pisanie progra¬ 
mów w Basicu, pod warunkiem ze 
w programie głównym umieści się rozkaz 

PLA procesora 

W następnym artykule zajmiemy się 
dźwiękiem Atarl. 


Tomasz Bielak 
Rafał Bielecki 


Dla tych. któr/y preferują dane homogenizowane, przedstawiamy poniżej ostatni przykład z "Piszemy DEMO" w po¬ 
staci danych szesnastkowych Należy je połączyć zc Zgrvwusem + z TA 2/92, co pozwoli uzyskać program maszyno 
wy. zdatny do uruchomienia bezpośrednio pod kontrolą s ystemu DOS lub COS 


IJ 

1000 REM *-* 

NT 

1260 DATA 019dlc06bd02061869059d0606 

ou 

1002 REM : DEMO-GRA : 

GA 

1270 DATA bd000648bdla06a8b9578c9d08 

AH 

1004 REM : R. Bielecki, T. Bielak : 

QT 

1280 DATA 0668c001d0031869069d04069d 

YY 

1006 REM : (c) 1992 Tajemnice ATARI : 

KP 

1290 DATA 04d020c388bdlc06f02518bd04 

JP 

1008 REM *-* 

GG 

1300 DATA 06 7d08069d0406 9d04d0c931f0 

UC 

1010 DATA ffff00885f8a4cdl898a48a960 

R0 

1310 DATA 0cc932f008c9ccf004c9cdd008 

HY 

1020 DATA 85f2a90aa0a6e00ld004a910a0 

BS 

1320 DATA a9009dlc0620b588e8e002f003 

JD 

1030 DATA a785f084f3a90685fIa000blf0 

QP 

1330 DATA 4cd388a200bd08d0dd598cd016 

VP 

1040 DATA 480a85f4680a0a0a38e5f485f4 

WG 

1340 DATA 18ad0ad2293f69017dl6069dl6 

PS 

1050 DATA 9848a6f4a000bd008c9lf2e8c8 

NR 

1350 DATA 069003fel80620b58820508820 

DD 

1060 DATA C006d0f518a5f2690885f268a8 

GB 

1360 DATA 0388e8e002d0d7a90l8dla028d 

NO 

1070 DATA c8c006d0d268aa60bdl606d005 

YX 

1370 DATA Ied060a2008a9d00a39d00a49d 

LC 

1080 DATA bdl806f02e8a48e00ld002a206 

BW 

1380 DATA 00a59d00a69d00a7e8d0eea9a0 

LF 

1090 DATA a000fe0a06bd0a06c90ad00ba9 

AG 

1390 DATA 8d07d4a203bd4£8c9dc002a900 

QV 

1100 DATA 009d0a06e8c8c006d0eb68aade 

SK 

1400 DATA 9d08d0cal0f2a232a0c68e02d0 

FE 

1110 DATA 1606bdl606c9ffd003del80660 

XM 

1410 DATA 8c03d0a23e8e2f02a201a0038e 

JT 

1120 DATA 8a481869a485fIbd020685f0bd 

WT 

1420 DATA 6f028cldd0a203a9009dlc06ca 

EQ 

1130 DATA 00069d00d0bdla06aae001d002 

UZ 

1430 DATA 10faa2139d0a06cal0faa20l8e 

VK 

1140 DATA a209a000bd3c8c91f0e8c8c00a 

DN 

1440 DATA Ia06ca8elb06a246a0aa8e0006 

ZI 

1150 DATA d0f568aa60bd0606a8b900a33d 

XR 

1450 DATA 8e02068c0l068c0306a2002003 

HI 

1160 DATA 538c9900a360bd0606a8b900a3 

KL 

1460 DATA 88208988e8200388208988a2dl 

TM 

1170 DATA ld5 5 8c 9 900a3 60a200bd7 802 4 a 

DK 

1470 DATA a0888e28028c2902a9408d0ed4 

VS 

1180 DATA b00c48bd0206c922f003de0206 

XL 

1480 DATA 4cc889008c5a8c367f41417f36 

TJ 

1190 DATA 684ab00c48bd0206c9d4f003fe 

sz 

1490 DATA 367f00000000307949494f0636 

EG 

1200 DATA 0206684ab01148bd0006c93df0 

FC 

1500 DATA 7f49494900367f08087830064f 

BU 

1210 DATA 08a9009dla06de0006684ab011 

NA 

1510 DATA 49497930064f49497f36367f40 

NX 

1220 DATA 48bd0006c9bdf008a9019dla06 

IJ 

1520 DATA 404000367f49497f36367f4949 

TT 

1230 DATA fe000668208988bd8402f008a9 

PN 

1530 DATA 7930001838103cfc38182c00l8 

BC 

1240 DATA 009dle064c6b89bdle06d03aa9 

PA 

1540 DATA Ic083c3fIcl834000f965858fc 

BU 

1250 DATA 019dle06bdlc06f00320b588a9 

KO 

1550 DATA £3030cfe020201e002e1020088 































Artefakt Przodków 

Ziemska wyprawa badawcza na 
tknęła się w głębi systemu Syriusza 
na kolonię potężnej cywilizacji Oka 
zało się. że Obcy lilc przejawiają 
przyjaznych zamiarów Statki Impe 
rlum Ziemi zostały zaatakowane 
1 zniszczone, a Obcy ruszyli w kle 
runku Układu Słonecznego Ich pla 
ny były łatwe do odgadnięcia - za 
mlerzall zniszczyć ludzkość 

Pułkownik Max Graham najlepszy 
sposrod agentów Imperatora otrzymał 
misję, od której zalezy przetrwanie lu¬ 
dzkie) rasy Musi on odnaleźć kosmo- 
loty bojowe ukryte w dokach starej 
księżycowej ł>azy Stanowią one szczy¬ 
towe osiągnięcie techniki wojennej. 
Umieszczono Je na Księżycu w cza¬ 
sach największej swtctnoscl cvwiltza 
Cjl. a jx> widu latać h fx>koju i dobro- 


1 a tu zapomniano o nich Teraz, 
w obliczu zb!lza|ące| się zagłady, 
pułkownik Graham dostał zadanie 
odnaleźć przynajmniej jeden . Jest 
lo ostatnia szansa Imperium na zwy- 
(ięskte zakonc zenie wojny z Ołxyml. 

Artefaki Przodków" to gra komna¬ 
towa, wyróżniając a się ładną anlma- 
< ją postaci 1 bardzo urozmaiconą gra 
llką Okrasza ją ładna muzyczka, kto 
rą niestety inogą się cleszyc jedynie 
[>osladac7e Atarl z pamięcią powyżej 
64kB Gra Jest opakowana w kartono¬ 
we pudełko wewnątrz ktorego 
oprocz nośnika (dysku lub kasety) 
znajduje stę Instrukcja ołisługl pro 
graniu, krótkie opowiadanie wprowa¬ 
dzając** w akc Ję. gry, komiks oraz wy¬ 
drukowana na kartoniku karta kodo 
wa (zalxvplee7onle przed piractwem') 
Grę wydała lirtna ASF s.c 

(na podstawie instrukcji dołjry) 

Darkness Hour 

Przez wiele lat rządziłeś swym kró¬ 
lestwem Twoi poddani byli zadowole¬ 
ni zc swego łaskawego t sprawiedliwe¬ 
go władcy Bezpieczeństwa kraju 
strzegł oddział mę/nyeh wojowników 
którzy, choc nieliczni, słynęli z mę¬ 
stwa Wróg nie zbllzał się więc do 
Twych granie, a cała kraina kwitła 
t rosła w potęgo. Znal. I się jednak 


zawistny człowiek, który wkradł się 
podstępnie w Twoje łaski, a kiedy 
obdarzyłeś go największymi zaszczy 
tanil. wykorzystał swe wpływy by uk¬ 
nuć spisek 1 zdradziecko pozbawię 
Clę tronu. Udało Cl się ocalić życie, 
zostałeś Jednak wygnańcem 1 musla 
łes się ukrywać pr/ed sługusami 
zdrajcy Najbardziej bolesne dla Cle 
bie. było przejście na Jego stronę nte- 
gdyś wiernych Cl rycerzy Nie znałeś 
Jednak strasznej prawdy Dopiero 
spotkana w głębi lasu wiedźma uka 
zała Cl w kryształowym zwierciadle 
rzeczywisty przebieg wydarzeń Twój 
wróg był mistrzem czarnej magii (o 
czyni wcześnte| ntc wiedziałeś) 1 nic 
mogąc przekupie ani tez zastraszyć 
dzlcjnyi h wojowników, zaklął Ich 
dusze w motyle. Musisz odnaleźć Je 
I zebrać razein. wtedy zły czar prys 
nic. a Ty będ/lesz miał szansę odzy 
skać tron Nie Jest lo łatwe, odkąd 
rządy sprawuje podstępny mag, 
w całej dotychczas spokojnej krainie 
rozpanoszyły się najrozmaitsze po- 
t%vory i straszydła Przed Tobą wiele 
pojedynków; czy zdołasz wyjsc 
z nich zwycięsko? Pamiętaj także 
o tym, że motyle widoczne są tylko 
n<x-ą. o mrocznej godzinie Weź więc 
mlecz w dłoń I ruszaj na poszukiwa¬ 
nie zaklętych motyli. Sity Dobra są 
po Twojej stronie! 


Basia 



S ^ 


Potężne zamczysko lezące na ru¬ 
bieżach królestwa zostało opanowa¬ 
ne przez siły ciemności Przerażają 
cc pogłoski o straszliwych potwo¬ 
rach. krążących po korytarzach za¬ 
mku dziesiątkujących z łogę 
tarły wreszcie do króla. Zamtjxiku- 
jony monarcha zwołał Radę Magów. 
Po długiej debacie orzekli oni. Iz bu 
dżąeuygrozę wydarzenia to zaledwie 
początek. "Najgorsze* nastapi. Jeżeli 
sprawca tvch nieszczęść. Upiór 
przejmie władzę w r rahj krainie. To 
ł 1 tegp rozkaz okrutne bestie za¬ 

władnęły twlerdz-ą Aby powstrzymać 
Upiora, należy zgładzić słuząęe mu 
istoty Magowie orzekli że Inoże to 
uczynię tylko jedc człowiek, który 
samotnie słanie do wałki zbrojuy je¬ 
dynie w jrancerz magli. Kto będzie 
lyni śmiałkiem" 3 Oczywiście Ty! Zgło- 
Ml ha* się saiu. wiesz butikon dusiai- 
nali że w całym królestwie nie ma 
mężniejszego od Clebłe wojownika. 



W* 

11 fJI 


f 


Magowie uzbroili Clę w tajemną moc 
to jedyna skuteeztfa broń przeciw 
ko sługom Upiora Wierząc w swą 
szczęśliwą gwiazdę, wyruszasz na 
S KJtkantc p rzcznłg -ienla 

Uptor J -t grą komnatową. zada 
nie graeza jiolega na prteinlerzaulu 
korytąrzy zamczyska twnlcc z nąpo- 


skuje na atrakcyjności. Wystrój wnę¬ 
trza zamku Jest niestety dosyć ubygl 
1 gdyby nie Interesująco przedsiawto- 
ih postacie możną by zarzucie po¬ 
szczególnym komnatom, lż są d sie¬ 
bie nużąco podobni-. 

' j -. ! 

Pogro mca potworól walczy zada- 
jąo ciosy Jedynie przy pomocy włas¬ 
nych kończyn. Robi to dość niesamo¬ 
wite wrażenie. Jako że Jego wrogowie 
znacznie przewyzs/ają go rozmiara¬ 
mi (jest klika rodzajów tych przyje- 
miiiai zków") Nic należy Jednak bać 
się pojedynku, pamiętajmy, źe ha- 

dgo bohatera, chroni Siła 

•magli, w-ięę-nte jest im tak bezbron¬ 
ny. Jakby się na pierwszy rzut oka 
wydawało. Gdyby gracz mlal jakieś 
wątpliwości, mgźę porówna^pozipni 
rnergti wojownika oraz poziom ener¬ 
gii potwora - są one przedstawione 
na licznikach umieszczonych w dole 
ekranu. Dzięki pogromca, po¬ 
tworów na bieżąco jest informowa¬ 
ny, jakie straty poniósł walce z po 
szczególnym stras/ iłami. 


ą imponujących rozmiarów « 


ii temu grafika gry znacząte zy- 

Bi a 
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Andrzej Zacharewicz z Polkowic 

List ten jest adresowany szczególnie do autora TOSu. 
Witolda Sciuka, Kiedy przeczytałem opis systemu ope 
racy/nego stworzonego przez pana Witolda byłem 
wielce uradowany Niestety po wpisaniu programu 
handler T nie czytał poprawnie (na końcu pierwszego 
rekordu zawsze występował błąd nr 200. tzn. błąd 
transmisji szeregowej). Jestem jednym z. tych uzyt 
kownikow ATARI, którzy bardzo poważnie traktują 
ten komputer, i kiedy pomyślałem ze w tym systemie 
np. QA wczytuje się tylko 14 rekordów to było to dla 
mnie sensacją Niestety jak juz wcześniej pisałem, 
program nie chodził (błędne podląc zenie interjejsu nie 
wchodziło w grę gdyż system wypróbowałem na kilku 
magnetojonach). 

Zaopatrzyłem się w kilkanaście godzin wolnego cza 
su. wczytałem TOS. wczytałem ling Huntera i zabra 
łem się do szukania błędów. Po 28 godzinnym 
maratonie znalazłem az 3 "błędy" w programie. Oka 
zało się ze TOS przy odczycie rekordu po 1024 baj 
tach dławi się. bo nagle napotyka puste miejsce na 
taśmie. Jeżeli na samym końcu rekordu wyślemy jesz¬ 
cze jeden bajt (np #00) to len błąd wyeliminujemy 
Piszemy krotki program: 

$0DB4 JMP $0B64 

S0B64 LDA KO 
$0B66 JSR $0D02 
$0B69 JMP S0F7E 

Aby zmianę tę wprowadzić do TOS-u najlepiej zmie¬ 
nić dane w listingu programu zamieszczonym w TA 
4/92. i lak jeśli chodzi o poprawkę pierwszą to zmie¬ 
niamy linie 1100 oraz 1550. 

1100 DATA 9ba9002G020d4c7e0f54ba000Q 
1550: zmieniamy z 7e0f na 640b 

l 

Po tej zmianie okazało się ze na końcu każdego re¬ 
kordu pojawiał się błąd nr 143. Po zamianie liczby 
(jednostek odczytu) z SI 1 na SI4 odczyt jest juz mo¬ 
żliwy (na rożnych egzemplarzach magelojonow ta 
wartość może byc inna) 

1610: liezbę drugą od końca zamieniamy z $ 11 na $ 14 

Zauważyłem jeszcze, iz po odczycie programu w turbo 
TOS nie odłączał turbo w magnetpjonie (LDA K$3C, STA 
5D303J robi cos znacznie gorszego, zapisuje $3c w $0603 
co Jest ewidentną pomyłka. Poprawiamy: 

1250: liczbę drugą od końca zamieniamy z $06 na $d3 

Po tych poprawkach system pracuje prawidłowo. 
W imieniu tych. którzy boleją nad nieprawidłowo pra 
cującym TOS-em (wiem co to znaczy) proszę o wydru¬ 
kowanie tych poprawek (całych llni DATA) TOS jest 
wspaniałym systemem z rozsądnie i mądrze opraco¬ 


wanym systemem Turbo, jest bardzo wielką pomocą 
dla wszystkich posiadaczy magnetofonów i szkoda by 
łoby, aby leżał gdzieś na zakurzonej kasecie nigdy nie 
używany z powodu paru błędów. 

Istnieje możliwość dwukrotnego przyspieszenia 
transmisji. Oczywiście należy stosować taśmy dobrej 
Jakości i kategorycznie nie zmieniać skosu głowicy 
(nie tylko w tym przypadku) Nie zagłębiając się 
w szczegóły podam zmienione bajty. 

linia 1300: zmieniamy $5d na $28 

linia 1310: zmieniamy $24 na $11 

linia 1600: zmieniamy $33 na $19 i $09 na $04 

linia 1610: zmieniamy $19 na $0b i $11 na $0c 

Tak przerobiony system pracuje u mnie juz przez 
miesiąc i me stwarza żadnych kłopotow. Jeśliby na¬ 
wet od czasu do czasu jakiś rekord się nie wczytał to 
autor tego programu zaopatrzył go w bardzo pożyte¬ 
czne ładowanie ostatniego rekordu, a nie całego pliku 
od początku. 


Od redakcji 

Prezentujemy ten Ust z dużą przyjemnością, świadczy 
on bowiem o pomysłowości 1 dociekliwości naszych Czy¬ 
telników, System TOS, o którym mowa, wyróżnia się 
spośród Innych programów tego typu również sposobem 
komunikacji z użytkownikiem opartej o 'interpreter ko¬ 
mend", co zbliza go do standardów (znanych z większych 
komputerów) takich. Jak UNIX czy MS-DOS. a zdecydo¬ 
wanie różni od amatorszczyzny typu TURBO 2000. 

Dla uniknięcia pomyłki przy wprowadzaniu "łat" 
przedstawiamy kompletne wiersze listingu TOS-a, który¬ 
mi należy zastąpić dotychczasowe linie o tych numerach. 
Pierwsza grupa zawiera poprawki błędów. 


KH 1100 DATA 9ba90020020d4c7e0f54ba0000 
ZZ 1250 DATA 0bd0f248a93c8d02d38d03d3ad 
FV 1550 DATA d0f3e619c63610ed4c640b6810 
SX 1610 DATA C634d0cce434a919b002a91485 


Druga natomiast - proponowaną zmianę prędkości. 


KN 1300 DATA 3ad0e4608aa2dbd0088aa228d0 
SV 1310 DATA 038aa211cad0fdaa608540a200 
LJ 1600 DATA 199006243070c650l£e004b004 
VP 1610 DATA c634d0cce4340bl9b002a90cS5 


Wojciech Tylkowski z Bełchatowa 

W numerze 9 92 Waszego pisma uwagę przykuwa 
tekst opisujący poprawkę plików Panthera tak. aby 
działały w systemie Blizzard. Stanąłem sam przed 
podobym problemem i rozwiązałem go. poprawiając 
procedury obsługi transmisji Poprawka jest tak pro 
sta. ze postanowiłem podzielić się nią z Państwem 
w nadziei, ze zostanie wydrukowana. 

Zmiany dotyczą systemu Turbo K.O.S. 1.0. Wystę¬ 
puje on zarówno w postaci pliku, jak i na cartridge 
ach. Jego wyróżniki to czarne tło po wejściu do 
menu oraz. możliwość restartu komputera klawisza 

mi CONTROL/= 



















tuj 








Poprawka polega na -/.mianie zawartości komórek 
pamięci: 

• $0EC7(3783) / 1 na 2. 

• S0ECB(3787) 7 832(50) na S3A(58). 

• S0F36(3895) z S2A(42) na S5E(94) 

Przy pracy w BASIC-u rno/.na dokonywać tego In 
strukcjami POKE. Aby trwale poprawie piik systemo¬ 
wy. kor/.ystamy Jednak z programu Patcher. Do 
Patchera dopisujemy następujące linie. 



Termometr 


7 . 


1000 DATA 1004,1,2 
1010 DATA 1008,50,58 
1020 DATA 1116,42,94 

U/.ytkownicy carlridgeow z programami systemowy 
mi mogą nagrać tak przerobiony K O.S. w 7 urbo i uru¬ 
chamiać go pr/y pom(x:y dowolnego Mlcroloadera. 


Marek Drzewiecki z Płocka wykorzystał złącze pad- 
dle' do pomiaru temperatury Podłączamy tu termlstor 
o oporności 220 kiloomów (np NTC 211 lub NTC 220). 
Pomysł nie całkiem nowy. ale zgrabnie opracowany. 


Poprawka umo/.liwia odwoływanie się z.arowno do 
Tl:", jak i T:\ czy "T2:~. Wyświetlenie na/.wy pliku 
uzyskujemy, podając y.amiast nazwy pliku znaczek 
a nie 

Od redakcji 

Program Patcher" wydrukowany w TA 7/91 zawiera 
błąd. który może spowodować niepoprawne działanie 
programu. Poniżej prez.cntujemy ulepszoną wersję 
(zmianie ulegają wiersze 20 I 30). Nie ma to Jak łaciaty 
łaciarz. czyż nic? 


CP 

JV 

TG 

UH 

CO 

NL 

CB 

uo 

UD 

MB 

YC 

CR 

ER 

0M 

HY 

DU 

Z0 

CH 

DU 

MH 

WT 

DX 

HT 

KU 

ZK 

PF 

UC 

UE 

DU 

QH 

EF 

LJ 


•PATCHER’ 

Outor: Marek pasek 
cc) 1991 Tajewnice otan 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM Ł „ 

10 DIM I0$C7),F$C15): I0$="hhhELUE» 

29 L=FREC0>:IF L>33791 THEH L=33791 

30 L-L 1024!DIM P$CL)!P=0DRCP$) 


40 M5B-INT CP/256):5LEN-INT CL/256) 

50 MLEN=L-256*SLEN:L5B=P 256*MSB 
60 ? "Plik do Odczytu "tIMPUT F$ 

70 0PEN H2,4,128,F$:POKE 866,7 
80 POKE 868,L5B:POKE 869,MSB 
90 POKE 872,MLEN:POKE 873,5LEN 
100 K-USR CADR (10$),32) 

110 IF PEEK C867) Ol THEM 13B 

120 ? "Zbyt Wielki pl ik !EHD 

130 IF PEEKC867)=136 THEH 150 

140 ? "Niepoprawna transMis ja!E" :EHD 

150 CLOSE #2:TRAP 210 

160 MLEN=PEEKC872)iSLEN=PEEKC873) 

170 READ AD,OBT,BT 

180 IF PEEK CP+AD)=0BT THEH 200 

190 ? "To nie jest ten piik!E":EHD 

200 POKE P+AD,BT:G0T0 170 

210 ? "Plik do zapisu IHPUT F$ 

220 OPEN tt2,8, 128, FS ! POKE 866,11 
230 POKE 872,MLEHiPOKE 873,SLEN 
240 POKE 868,L5B:POKE 869,MSB 
250 X=USRCADRCIO$),32) 

260 ? "Gotowe.":EHD 


Wojciech Rawdanik odpowiada na pytanie zadane 

w TA 4/92 

W programie TRACĘ zł A 4/92 najprostszym sposo¬ 
bem uzyskania wydruku także I linii jest uruchomie¬ 
nie programu poprzez: 

CLR 

GOTO <numer^początkowej liniijprogramu> 


YW 1 GRAPHICS 18:FOR 1=0 TO 9999:C=1:REST 
ORE 3:FOR J=0 TO 99:TRAP 1:READ A:P=PE 
EK(624):IF P=A THEN POSITION 7,5:? #6; 
C-0.25:NEXT I 

QC 2 IF A<P THEN POSITION 7,5:? #6;C~0.25 
:NEXT I 

UM 3 C=C+0.5:NEXT J:NEXT I:DATA 167,163,1 
58,154 

LG 4 DATA 147,145,141,139,136,132,130,127 
,124,121,119,115,112,110,108,106,103,1 
00,97,95,93,91,90,88,86,84,82,80,78 

RR 5 DATA 76,75,74,72,70,69,67,66,65,63,6 
2,61,59,58,57,56,55,54,53,51,50,49,48, 
47,46,45,44,43,42,41,39,38,37,36 


Kosmiczny Niszczyciel 


Rafał Majewski z Rzeszowa przedstawia zabawę 
w strzelanie do nieprzyjaciela Niepokojące Jest to. ze wro¬ 
ga rozpoznaje się po tym, ze rożni się od nas kolorem 


LY 1 GRAPHICS 15:F=150:S=100:2=53248:POKE 
559,62:POKE 54279,120:K=31920:FOR J-OK 
TO K+ll:READ C:POKE J,C:POKE J+F,C 
ZC 2 POKE J+406,RND(0)*S:NEXT J:POKE Z+29 
,3:POKE 704,S:POKE 705,9:POKE 706,9:DA 
TA 8,8,8,28,62,127,127,107,73,8,28,62 
SB 3 U=STICK(0):L=L+3*(U=7)*(L<=68)-3*(U= 
ll)*(L>=-20):POKE Z,L+S:N=(STRIG(0)=0) 
:B=(X<L+30)*(X>L+24)*N:Q“F-149*N+40*B 
SY 4 G=L+56:FOR A=0 TO N;COLOR N-A:PLOT G 
,F:DRAWTO G,Q:NEXT A:0=0+N:V=V+B:? O;" 

V:POKE Z+2,(X+73)*B:SOUND 2,50,8,6 
BA 5 FOR K=0 TO 12*N:SOUND 1,K,12,9*(K<12 
*N):NEXT K:X=(X+9*(X<90)*RND(0)-8*(X>5 
)*RND(0))*(1~B):POKE Z+l,X+73:GOTO 3 


Powyższy program ma pewną wadę wymaga czystej” pa 
mięci w obszarze P/M Bez tego na ekranie pojawiają się 
charakterystyczne śmieci Kto nie lubi wyłączać często 
komputera, może przepisać i uruchomić poniższy pro¬ 
gram Zeruje on całą pamięć RAM powyżej MEMTOP 


XU 1 REM MEMORY CLEANER 
RL 2 SAVMSC»88:MEMTOP»144 
YD 3 POKE SAVMSC,PEEK(MEMTOP) 

NS 4 POKE SAVMSC+1,PEEK(MEMTOP+1) 
CL 5 ? CHR$(125):GRAPHICS 9 
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RZEKOTKA to znana gra, w której trzeba 
pomóc żabie przedostać się do jej nory przez 
ruchliwą drogę oraz rzekę pełną pływających 
żółwi oraz belek drewna. 

Aby przejść do następnego poziomu trzeba zapełń k 
wszystkie pięć nor. Z każdym poziomem gra staje się 
trudniejsza. Na dole ekranu po lewej stronie Jest licznik 
punktów - za umieszczenie żaby w norze gracz otrzymuje 
3 punkty, a za przejście do następnego poziomu dodał 
kowo 4. Pośrodku ekranu na dole znajduje się liczba 
"żyć' Na początku mamy 5 zye Po przejściu 4 poziomow 
ich liczba będzie się zwiększać. 

Sterowanie: Joystick nr 1 

Obsługa klawiatury: 

SELECT przejście do czołówki 
OPTION przejście do DOS-u 

Uwagi 

• Klawisze działają tylko po stracie wszystkich ząbek 

• Przy wgrywaniu programu do pamięci musi bye odłą- 
czony BASIC. 

• Ostatnie pięć bajtów w wierszach DATA to kody kolo 
rów które można zmienić wg wzoru ko- 
lor=kod* 16+Jasnosć*2 

Program w BASIC-u zamieniamy na grę za pomocą 
Zgrywusa + z TA 2/92. 


IJ 

1000 

xs 

1002 

PH 

1004 

YY 

1006 

JP 

1008 

EW 

1010 

QY 

1020 

ZT 

1030 

CU 

1040 

DD 

1050 

BJ 

1060 

BS 

1070 

JO 

1080 

BX 

1090 

IC 

1100 

EA 

1110 

EZ 

1120 

RZ 

1130 

TS 

1140 

JH 

1150 

PM 

1160 

QW 

1170 


REM *- 

REM : RZEKOTKA 

REM : autor: Jacek Binkul 

REM : (c) 1992 Tajemnice ATARI 

REM *- 

DATA fff£0090£296a200bd7c96a008 
DATA 0a66cd88d0£aa5cd9df296e8e0 
DATA 7790eba278bd00e09d78a4e8e0 
DATA dc90f5ad24028d7d97ad25028d 
DATA 7e97ad300285flad310285f2a2 
DATA 32a996201995adlfd0c903d00d 
DATA 20a294a6fla5f22019956c0a00 
DATA c905£0elad8402d0e385f920a2 
DATA 94a90485f885£7a9008d3002a9 
DATA a08d3102a9a48d£402a20e20b3 
DATA 94a203a91£9d00b8cal0f820a2 
DATA 94a20c20b394a905a885fb85cc 
DATA a90385cba208bdl7969900b7c8 
DATA c6cbd00998186925a8a90385cb 
DATA ca!0e99838e971a8c6ccd0dae6 
DATA £9a004a6f986cda203a9012049 
DATA 93ae0ad2f0fbe00ab0£7a90020 


LW 

1180 

ZO 

1190 

WC 

1200 

BA 

1210 

IM 

1220 

PK 

1230 

HW 

1240 

VC 

1250 

MD 

1260 

JN 

1270 

SQ 

1280 

CL 

1290 

HU 

1300 

EG 

1310 

MN 

1320 

NT 

1330 

NP 

1340 

IA 

1350 

QV 

1360 

XL 

1370 

YN 

1380 

PO 

1390 

XG 

1400 

WH 

1410 

DY 

1420 

ND 

1430 

PL 

1440 

DQ 

1450 

YR 

1460 

QX 

1470 

BR 

1480 

OJ 

1490 

MQ 

1500 

UO 

1510 

WI 

1520 

FP 

1530 

GG 

1540 

CD 

1550 

BY 

1560 

OJ 

1570 

ZD 

1580 

QJ 

1590 

UN 

1600 

CL 

1610 

EK 

1620 

TP 

1630 

CB 

1640 

OZ 

1650 

IJ 

1660 

NU 

1670 

YX 

1680 

TX 

1690 

YT 

1700 

OS 

1710 

LB 

1720 

LF 

1730 

TZ 

1740 

UB 

1750 

XT 

1760 

KR 

1770 

0X 

1780 

FC 

1790 


1800 

cw 

1810 

EN 

1820 

VC 

1830 

OK 

1840 

FO 

1850 

EN 

1860 

QV 

1870 

JH 

1880 

FK 

1890 

QL 

1900 

RX 

1910 

FK 

1920 

OB 

1930 


DATA 4993c6cdd0e7a22aa07abd00b5 
DATA 9900b5bd00b69900b688cal0f0 
DATA a200a008ad0ad22901dd7e97£0 
DATA £69d7£97e888d0efa9049d8797 
DATA cal0faa207ad0ad2£0fbc5£7b0 
DATA f7dd9197f0£29d8f979d9797ca 
DATA 10e9a0008c839784ccbe7f9784 
DATA cba4ccbd4095990aa018690199 
DATA 0da098690985cca4cbc8c00490 
DATA ela907a0c2a293205ce4a9888d 
DATA 0002a9948d0i02a9e08d0ed4a9 
DATA a88d07d4a9018d0ad08d6£02a9 
DATA 0e8dc0028dcl02a90085d08d08 
DATA d08d09d0a9788dc20285cc8d00 
DATA d0a97£8d01d0a9028dldd0a93a 
DATA 8d2£02a9c585cba9e88d9893d0 
DATA 17ad7802854dc90fd0034c5192 
DATA a2e88e9893a6ccc90ed014a5cb 
DATA 38e91285cba211a087207593a2 
DATA 01a077d055c90dd01fa5cbc9aa 
DATA b074a2ca8e9893a231a0a72075 
DATA 93a5cbl8691285cba20£a085d0 
DATA 32c90bd018e02e9053a066a255 
DATA 207593a5cc38e90885cca044a2 
DATA 33d016e0c3b03ba0cba2dc2075 
DATA 93a5ccl8690885cca0a9a2baa9 
DATA 0585£aa90220b293207593a5cb 
DATA 8d7c97c964b00fa20038e923£0 
DATA 05e8e912d0fb8e7c97a90320b2 
DATA 938dled0a90120b293a5cbc964 
DATA 900aad04d00d05d0d059f04cad 
DATA 0cd0d052ad04d02d05d0f04aa6 
DATA cbe014b039c90b£040ad04d0c9 
DATA 0b£039a5cca20038e928c92190 
DATA 05e8e91cd0f7bcf095a202bdf5 
DATA 959950b7c8cal0£6207193a903 
DATA 202595c6£bf03a4c72914ca891 
DATA a9008dldd04c4190207193a211 
DATA a4cbbd209699feabc8cal0£6a2 
DATA 0fa90c85faa9018d08d020b293 
DATA 8ec002cal0f2c6f830c£4c7291 
DATA a5f9c904901ba005a6£8e008b0 
DATA 02e6f8c907900aa015a90385f7 
DATA a90085£9205b93a91785faa93c 
DATA 20b293a9052025954c879086cd 
DATA e004b00ca6cedde895d01bbdea 
DATA 95d016e005b008c928900ea900 
DATA £00aa6ceddec95d003bdee95a6 
DATA cd6085ce9900b51865ce9900b6 
DATA 65cec8cad0f160206393981869 
DATA 25a8a91b9900b9186901c8c91e 
DATA 90f560a200a00084f£86fea9ac 
DATA 85dla6fe209d93208£93e6dla6 
DATA ff209d9320a693a4cbbd7c96f0 
DATA 0691d0e8c8d0£560a0009891d0 
DATA 88d0fb60a5cc8d00d01869088d 
DATA 0ld0606514c514d0fc60e6cce6 
DATA cce6cee6ce60a6fabd6496£003 
DATA ca86fa8d00d2a9ea8d01d2a200 
DATA 86c£a001de8£97d05abd97979d 
DATA 8£97bd7f9785cef02a£e8797ec 
DATA 7c97d005e6cc20a693bd8797c9 
DATA 049039a9009d8797b908a0201e 
DATA 9338e9019908a0990ba0b023ec 
DATA 7c97d005c6cc20a693de879710 
DATA 14a9039d8797h908a0201e9318 
DATA 69019908a0990ba098186909a8 
DATA a5f86920Rd0ab8e8e0089090a5 
DATA fdd035a9a'e85dl209d93ad7c97 
DATA d02bae0ad2e00Sb024bcf095b9 
DATA 50b7 c 9 9 8 f01abdf 895 8d02d0a0 
DATA 0ba211bdfd959900aec8cal0f6 
DATA a95085fdc6£d6c7d97488a48a6 
DATA c£8e0ad4bd87978d04d4bd0£96 
DATA 8dlad0e6c£68aa6840a907ac7d 
DATA 97ae7e97205ce4a9608d0ed460 









zu 

1940 

DATA 

a000a90085cba9ac85cc9891cb 

XD 

1950 

DATA 

88d0fbe6cccad0f69885dl85cb 

IH 

1960 

DATA 

85cda9b0S5cca9bl85cebe4495 

IZ 

1970 

DATA 

f023303ac884d0a4dlbdc89530 

PB 

1980 

DATA 

109lcbl869019Icde8c8d0f020 

DO 

1990 

DATA 

b99390eb84dla4d04cd794c88a 

IA 

2000 

DATA 

be4495c884d0a4dlc8d00320b9 

WJ 

2010 

DATA 

939lcb9lcdcad0f 3 f0e0608e30 

VS 

2020 

DATA 

028d3102a9e08df40260a2036d 

CV 

2030 

DATA 

03b88d03b8c929900ee 9 0a 9 d00 

DX 

2040 

DATA 

b8feffb7bd£fb7cal0ee60b0b2 

MJ 

2050 

DATA 

b5b50003010001010001010005 

TU 

2060 

DATA 

05000905000401000101000101 

XK 

2070 

DATA 

0003 1 500021500021500020100 

ST 

2080 

DATA 

0b050003010001010004150002 

RA 

2090 

DATA 

15000605000201000101000101 

XY 

2100 

DATA 

00031500071500060100010100 

FE 

2110 

DATA 

010100050500121C00011C0006 

ON 

2120 

DATA 

0500061C000915000f15000f05 

Ul 

2130 

DATA 

00071C00011C00011C00141500 

SR 

2140 

DATA 

0bl5000c05000915000a1C0001 

FO 

2150 

DATA 

lc000605ff07090bff0d0f1111 

XD 

2160 

DATA 

1111111111111111111113ff0d 

GT 

2170 

DATA 

0f1 1111 113ff090b07ffd700ff 

YO 

2180 

DATA 

d84f 00 ff50050C13la219a9998 

KT 

2190 

DATA 

425e7a96b23c6a6aabab8181d5 

SA 

2200 

DATA 

d556563c3c5a42a5a542949494 

BZ 

2210 

DATA 

94C60000009595959595959795 

KP 

2220 

DATA 

9618183c3c7e7e7e7ef££f7e7e 

GW 

2230 

DATA 

7e7e3c3cl8187070473c967007 

PI 

2240 

DATA 

413296 000000006 36163656 b00 

ME 

2250 

DATA 

62696e6b756c00000000000000 

SV 

2260 

DATA 

000000727a656b6f746b610000 

OQ 

2270 

DATA 

00000000006 5655c5c2f250038 

ZZ 

2280 

DATA 

6b8fb43c0032323c3c46465a5a 

QA 

2290 

DATA 

4b4b002912la0f0f03030b0bl7 

WQ 

2300 

DATA 

1713393828002912Ia0f0f0303 

IP 

2310 

DATA 

03030303030707050C08081810 

SP 

2320 

DATA 

10101808080c0404040e0e0a0a 

SP 

2330 

DATA 

0008040a0207070b0f0f0b0707 

FB 

2340 

DATA 

020a0408005060904080c0e0e0 

SN 

2350 

DATA 

e0e0c0804090605000804la726 

BF 

2360 

DATA 

7cfebfffffbffe7c26a7418000 

UK 

2370 

DATA 

80c86830100808808008081030 

PO 

2380 

DATA 

6 8c 8 80000®a055 a04 400b70404 

SC 

2390 

DATA 

Cd64b45414b05414blcd64b454 

ZU 

2400 

DATA 

14b05414blcd64b45414b05414 

KF 

2410 

DATA 

blcd64b45414b05414blcd64b4 

VB 

2420 

DATA 

4464b45400b9cd64b4543cb554 

BI 

2430 

DATA 

3cb6cd64b45400b55400b6cd64 

AW 

2440 

DATA 

b4 5 414b5 5 414b6 7070204 700b8 

WH 

2450 

DATA 

4100a000a4efa 4 000000000000 

EF 

2460 

DATA 

00000f0f020f3dfddfdfdfdffd 

MQ 

2470 

DATA 

3d0f020f0£c3c300ffddddfff£ 

VM 

2480 

DATA 

ffffddddff00c3c3£0f040£0fc 

RT 

2490 

DATA 

fff7f7f7f7fffc£040f0f00000 

IW 

2500 

DATA 

00003c28ebff f feb283c000000 

WJ 

2510 

DATA 

00f0£1050517ldld5£5dlf1515 

DL 

2520 

DATA 

0505flf00f4f5050d47454d575 

XB 

2530 

DATA 

d4545450504f0f030d3537d7df 

BB 

2540 

DATA 

ddfdf5dddd3736360d03f57f5f 

ZF 

2550 

DATA 

dfd7f7775£7f7777f7dfdf7ffc 

ZM 

2560 

DATA 

71ffffefabefff75ff5f7e75fd 

EA 

2570 

DATA 

ffffcf40d0f4e4b4fdfd5dfdfd 

XL 

2580 

DATA 

bda4b4b4d040f ftfffffffffff 

LP 

2590 

DATA 

f f030f0£3f3f3fff£fc0£0f0fc 

KE 

2600 

DATA 

fefeff f fd£6767d5f5d55655be 

WU 

2610 

DATA 

d755555555aa55f7d9d9575f57 

OK 

2620 

DATA 

9 55530ec3cfc3f0f0303000002 

XH 

2630 

DATA 

0b2f3cfcf020bccf0303030f0c 

VL 

2640 

DATA 

e002el020090c402c80228ca92 

GN 

2650 

DATA 

4 200 




Historia może dość banalna I często powtarzająca się 
w grach komputerowyc h. ale tym razem nawet nieźle rozwiąza¬ 
na graficznie I muzycznie a wszystko po to. aby zachęcić do niej 
użytkownika "małego ATARI' Jesteś weteranem wojny wiet¬ 
namskiej po której przeszedłeś na zasłu/ony odpoczynek 
w stopniu pułkownika Siedząc w swoim nowo otwartym biurze 
detektywistycznym, odebrałeś telefon od szefa wydziału obrony 
ONZ Organizacja Narodów Zjednoczonych chce Clę zatrudnić 
na czas wykonania bardzo trudnej I niebezpiecznej misji Zie¬ 
mię opanowały zbuntowane maszyny sterowane przez główny 
komputer w strategicznej bazie wojskowej USA Twoim zada 
nlem będzie dotarcie do głównego komputera I unicestwienie 
go Wojskowe siły powietrzne wyposażyły Clę w najnowszy mo 
del śmigłowca bojowego "HAWK (Jastrząb) uzbrojony w najno 
wszą broń działka laserowe Jeżeli myślisz, ze teraz zadanie 
Jest dziecinnie proste to Jesteś w błędzie Baza wojskowa, któ¬ 
rą masz zniszczyć Jest dobrze ukryta I strzeżona przez artylerię 
przeciwlotniczą, myśliwce, a Jakby tego było Jeszcze mało ma 
bardzo sprawnie działający systemem wczesnego ostrzegania 
Można powiedzieć - nic do zdobycia, ale musi Cl się udać Od 
Ciebie zalezy nasza przyszłość' Strzez się - tylko Instynkt wo 
Jownlka może Cl pomóc Pamiętaj o paliwie, co pewien odcinek 
trasy pojawi się Statek Matka, gdzie mozesz go uzupełnić 
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Jesteś kapitanem nowej super-łodzl podwodnej X 223 o na¬ 
pędzie atomowym W czasie rekonesansu na terytorium wroga 
odkryłeś opuszczoną bazę Niestety, była to pułapka, zostałeś 
podstępnie uwięziony w jej labiryntach Twoim zadaniem bę¬ 
dzie wydostanie się z bazy w możliwie Jak najkrótszym czasie, 
oczywiście z minimalnymi stratami Masz do dyspozycji tylko 
trzy łodzie oraz po trzy kapsuły badawcze dla każdej z nich. 
wyposażone w działka kalibru 7 32 W labiryntach umieszczone 
są hermetyczne drzwi otwierane przez sterowniki (są one po¬ 
rozrzucane po całej bazie Ostatnie hermetyczne drzwi są zasi¬ 
lane przez reaktory atomowe, które mozesz zniszczyć strzelając 
do nich Jak w każdej łodzi podwodnej, masz ograniczony za¬ 
pas tlenu I co pewien czas musisz go uzupełniać Służą do tego 
pojemniki z tlenem, które wróg pozostawił w korytarzach bazy 
Gdy zacznie brakować paliwa, należy go uzupełnić - do tego ce¬ 
lu służą zbiorniki z symbolem *F* (FUEL) Dla uatrakcyjnienia 
gry w tunelach rozmieszczone są znaki zapytania, pod którymi 
kryją się niespodzianki np porcja paliwa, zapas tlenu lub do¬ 
datkowa kapsuła To powinno Cl pomóc w wykonaniu tej trud¬ 
nej I niebezpiecznej misji 


Przekonaj się, czy jesteś dobrym dowódcą POWODZENIA 1 


Jacek Blnkul 
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W tym odcinku nie będę przedstawiał nowy< h słów 
FORTHa, gdyż nie starczy na to miejsca Cały arykuł do¬ 
tyczy Jednego, ale Jakże ważnego elementu tego Języka, 
Jakim Jest Edytor FORTHa (nie mylić z Edytorem Wpro¬ 
wadzania) W pierwszym odcinku cyklu obiecałem przed¬ 
stawić kasetową wersję FORTHa. Aby dotrzymać słowa 
rozszerzyłem obsługę Edytora na to urządzenie Dzięki 
temu możliwy jest zapis wersji źródłowej na kasetę, oraz 
odczyt i kompilacja z tego urządzenia Czytelnicy, którzy 
wprowadzą do swego komputera Edytor Fortha. zdobę¬ 
dą narzędzie umożliwiające pełne wykorzystanie dobro¬ 
dziejstw tego Jeżyka. 

A zatem do dzieła 1 Aby tego dokonać należy- 

Posiadać Implementację Extended lig FORTH 

Wprowadzić do FORTHa Edytor Wprowadzania (6/7 
lub 10 nr TA) oraz Assemblcr (8 nr TA). 

Uwaga! Wszyscy, którzy wprowadzili do swego kompu¬ 
tera starszą wersję EDW, powinni najpierw wpisać 
w trybie bezpośrednim następującą deklarację: 

: EW ; EHEEB 

Prezentowany listing Edytora składa się z trzech czę¬ 
ści Pierwsza - to główny program edytora Druga - to 
zestaw słów dla posiadaczy stacji dysków Część trzecia, 
przeznaczona dla posiadaczy magnetofonów, zostanie 
przedstawiona w następnym odcinku Listingi walczy 
wprowadzić do komputera przy pomocy Edytora Wpro¬ 


wadzania (EDW) 

01N7 ( EDYTOR—FORTH ) 

0200 

03CO ( autor : Roland Pantola ) 

04Q9 ( [c] 1992 T.A. ) 

05C7 0 VARIABLE #GGE 
06GS : GGE #GGE § ; 

07KS 129 #GGE ! 

08VP CODĘ INSTR 

093P 3 ,X LDA, XSAVE 3 + STA, 

0ANE 2 ,X LDY, 

0BJG 0= IF, XSAVE 3 + DEC, 

0CBU THEN, DEY, XSAVE 2+ STY, 

0DFE 0 ,X LDY, 4 ,X LDA, 

0EVJ BEGIN, XSAVE 2+ )Y CMP, 

0F0L 0= NOT IF, DEY, THEN, 

0GFP 0= UNTIL, 4 ,X STY, 

0HE5 FOPTWO JMP, C; 

0I1H ( A ADR DLU-NR ) 

0JUD : SELECT <BUILDS SMUDGE ] DOES> 
0KMB SWAP 2 * + § EXECUTE ; 

0LAM : % COMPILE CLIT BL WORD HERB 


0MFR NUMBER DROP -1 OVER 256 <=< 0= 
0NSD IF CR .- Error: % “ DUP . 

0OSI ENDIF C, ; 

0P5S IMMEDIATE 

0Q3H 0 VARIABLE #C 2 ALLOT 

0RJM 64 #C C! 

0SBT 0 #C 1+ C! 

0TRH 32 #C 2+ C! 

0U9L 96 łC 3 + C! 

0V00 
10A1 —> 

1100 

1200 

13VQ CODĘ CMOVE> 2 ,X LDA, XSAVE 2+ 
14M4 STA, 4 ,X LDA, XSAVE 4 + STA, 
153F 1 ,X LDA, CLC, 5 ,X ADC, 

166P XSAVE 5 + STA, 1 ,X LDA, 

17HF CLC, 3 ,X ADC, XSAVE 3 + STA, 
18QU BEGIN, 0 ,X LDY, 

19BA BEGIN, DEY, XSAVE 4 + )Y LDA, 
1A91 XSAVE 2+ )Y STA, 0 # CPY, 0= 
1B2P UNTIL, XSAVE 5 + DEC, XSAVE 
1CTC 3 + DEC, 0 ,X LDA, 0= IF, 

1D0U 1 ,X LDA, 0= NOT 

1EC5 IF, 1 ,X DEC, THEN, THEN, 

1FE2 0 # LDA, 0 ,X STA, 

1GF6 1 ,X LDA, 0= UNTIL, 

1H9K INX, INX, XSAVE STX, POPTWO 
1IIJ JMP, C; 

1J00 

1K0U CODĘ ASC-PEEK XSAVE STX, 

1L68 2 ,X LDA, XSAVE 2+ STA, 

1M3P 3 ,X LDA, XSAVE 3 + STA, 

1NNC 0 ,X LDY, 

106Q BEGIN, DEY, XSAVE 2+ )Y LDA, 
1PEJ 96 # AND, .A LSR, .A LSR, 

1Q03 -A LSR, .A LSR, .A LSR, TAX, 
1RGO XSAVE 2+ )Y LDA, 

1SFR 255 96 - # AND, #C ,X ORA, 

1TH5 XSAVE 2+ )Y STA, 0 # CPY, 

1UKB 0= UNTIL, XSAVE LDX, 

1VE5 POPTWO JMP, C; 

20A1 —> 

2100 
2200 

23S9 : PEEK-ASC OVER OVER 2 0 
240V DO ASC-PEEK LOOP ; 

25P4 ( ADDR DLU - ) 

26EO 4 VARIABLE XPOS 4 VARIABLE YPOS 
279G : XPOS@ XPOS @ ; 

289S : YPOSe YPOS § ; 

29EI : POSE YPOS ! XPOS 1 ; 

2AMR 48 CONSTANT ZERO 
2BL5 : X! % 85 ! ; : Y! % 84 C! ; 
2CEA : X@ % 85 § ; : Y@ % 84 C§ ; 
2DNM : POS Y! X! ; 

2EQ0 : 0.R ' ZERO CFA ' SPACE 1 .R 
2FTK ' BL CFA ' SPACE ! ; 

2GPI : BEEP 253 EMIT ; 

2H00 

2177 VOCABULARY EDITOR IMMEDIATE 
2JFB EDITOR DEFINITIONS 
2K86 : KDLE [ 112 C, 66 C, 48032 , 
2LBD 2 C, 2 C, 2 C, 2 C, 2 C, 2 C, 
2MPR 2 C, 2 C, 2 C, 2 C, 2 C, 2 C, 2 
2N3T C, 2 C, 2 C, 2 C, 2 C, 2 C, 2 
203T C, 2 C, 2 C, 2 C, 2C, 2C, 2 
2P9S C, 2 C, 2 C, 65 C, 47998 , ] ; 
2QFH : #SCR? 0 % 10 POS ." SCR” 

2R9S 0 % 12 POS SCR @ 3 0.R ; 

2SVL : ADBUFF HERE 260 + ; 

2T88 : LBUFF ADBUFF 2 - ; 

2UIA : CZYBUFF ADBUFF % 4 - 
2V5D § 31886 = ; 

30A1 —> 

3100 













3200 

33A1 : #BUFF? CZYBUFF IF LBUFF 
34NE @ ELSE 0 ADBUFF 2 - ! 31886 
351V ADBUFF 4 - ! 0 ENDIF 0 % 16 POS 
36NA ." BUF" 0 % 18 POS % 3 0,R ; 
377A : #DISPE ' #DLE 47998 % 34 
3SEN CMOVE 47998 560 ! 48032 % 88 ! 
39PC ; : #RAMKA % 125 EMIT % 88 0 
3ASM % 28 0 DO DUP I%40*+%3+ 
3BFO % 124 SWAP OVER OVER % 33 + ! ! 
3CQS LOOP DROP #SCR? #BUFF? ; 

3DLC 0 VARIABLE #LINIA0 

3EAK : #W# SCR i B/SCR * DUP B/SCR + 

3FMT SWAP ; : #WEJ #W# DO I 

3GQD BŁOCK % 128 ASC-PEEK LOOP ; 

3H49 : #WYJ #W# DO I BŁOCK % 128 
3IGF PEEK-ASC LOOP ; 

3JDU 48036 CONSTANT ADE: : ADLINE 
3KLT % 40 * ADE: + ; 

3L7K : #KP SWAP OVER OVER 1 - C! 

3MFA OVER OVER 32 + C! DROP DROP ; 
3NIH : KK? ADLINE % 84 #KP ; 

30M3 : PP? ADLINE % 124 #KP ; 

3PR9 : #LIN# DUP % 4 /MOD SCR 0 
3QRP B/SCR * + BŁOCK SWAP % 32 * + 
3RPG SWAP ADLINE #LINIA0 0 % 40 * - 
3SUC ; : LIN-E: *LIN# % 32 CMOVE ; 

3TOK : EK-E: #LINIA0 0 DUP % 28 + 
3UOR SWAP DO I LIN-E: LOOP ; 

3VSA : LIN-BUF #LIN# SWAP % 32 
40EP CMOVE ; —> 

4100 

4200 

4311 : EK-BUF #LINIA0 0 DUP % 28 + 
44NP SWAP DO I LIN-BUF LOOP ; 

45N5 : E:V ADLINE DUP % 40 - % 26 
46NO ADLINE DO I DUP % 40 + % 32 
47MF CMOVE -40 +LOOP % 32 ERASE ; 
4800 

49HH : E:" ADLINE % 40 + 

4A6H % 28 ADLINE 
4B19 SWAP DO I DUP % 40 - % 32 
4C9T CMOVE % 40 +LOOP % 27 ADLINE 
4DGB % 32 ERASE ; 

4E00 

4FU7 : LINB #LINIA0 0 + ; 

4GE3 : E: ADE: % 4 - 

4H18 XPOS@ + YPOS0 

4IOM % 40 * + ; : E:@ E: C@ ; 

4J7H : E:! E: C! ; 

4K00 

4L1F : #KUR E:@ DUP % 127 > 

4MLD IF % 128 
4NRR - ELSE % 128 + 

40CK ENDIF E:! ; 

4P00 

4QTS : &PP 

4R8I POSE #LINIA0 0 DUP 0= 

4STB IF 0 KK? ELSE 0 PP? ENDIF 
4TGV % 4 - IF % 27 KK? ELSE % 27 
4UTT PP? ENDIF ; 

4V00 

50A1 —> 

5100 

5200 

53L9 : #POS SWAP DUP % 4 < IF DROP 

54TL % 35 SWAP % 1 - SWAP ENDIF 

5501 DUP % 35 > IF DROP % 4 SWAP 

56FP 1+ SWAP ENDIF SWAP 

57R7 DUP 0 < IF #LINIA0 0 IF % 27 

585V LINB LIN-BUF 

598Q -1 #LINIA0 +! 0 E:V 0 LINB 

5AC9 LIN-E: DROP 0 

5BE1 ELSE DROP % 27 ENDIF ENDIF 

5CJ7 DUP % 27 > IF #LINIA0 04- 

5DIT IF DROP 0 ELSE 


5EQT 0 LINB LIN-BUF 1 #LINIA0 +! 0 
5FF2 E:" % 27 LINB LIN-E: 

5GUV DROP % 27 ENDIF ENDIF &PP ; 

5HTS : #PISZ DUP SP@ 1 ASC-PEEK #KUR 
5112 E:! XPOS§ 1+ YPOS0 #POS #KUR ; 
5JSP : #KXY@ #KUR XPOS@ YPOS0 ; 

5K06 : #PK #POS #KUR ; 

5LM8 : ?< #KXY@ SWAP 1 - SWAP #PK ; 
5MDB : ?> #KXY@ SWAP 1+ SWAP #PK ; 
5NVJ : ?" #KXY@ 1 - #PK ; 

505J : ?V #KXY@ 1+ #PK ; 

5PRQ : #RET #KXY@ 1+ SWAP DROP % 4 
5Q7Q SWAP #PK 0 LBUFF ! #BUFF? ; 
5R8S : #COF #KXY@ SWAP 1 - SWAP #POS 
5S2G 0 E:! #KUR ; : BFREE 430 LBUFF 
5TH5 0 % 32 * + 471 0 HERE - U< ; 
5UTL : >BUFF YPOS0 ADLINE ADBUFF 
5VHU LBUFF 0 % 32 * + % 32 CMOVE 
60AG 1 LBUFF +! łBUFF? ; —> 

6100 

6200 

6300 0 VARIABLE #CM 67 ALLOT 
64SF : #BU# % 28 #LIN# DROP DUP 
65SR % 32 + % 96 ; 

66CT : #EB# % 27 ADLINE % 28 LINB 
67LK #LIN# DROP ; 

68EH : BUFV #BU# CMOVE> ; 

6900 

6A0O : BUF" #BU# OVER >R >R SWAP R> 
6B17 CMOVE R> % 64 + % 32 ERASE ; 
6CSL : XSP DO I C@ 0= 0= IF DROP I 
6DPI LEAVE ENDIF LOOP ; 

6E00 

6F7F : OSTLIN #LINIA0 0 % 4 = IF 0 
6GUF % 27 ADLINE DUP % 32 + 

6HIG SWAP XSP ELSE 0 % 31 #LIN# 

6I8U DROP DUP % 32 + SWAP XSP 
6JSL ENDIF 0= ; 

6K00 

6LF9 : BFREE IF #KUR >BUFF 

6M84 YPOS0 E:" #LINIA0 0 
6N5I % 4 < IF #EB# SWAP % 32 
606D CMOVE ENDIF BUF" #KUR 
6PEV ELSE BEEP BEEP ENDIF ; 

6Q 00 

6RUP : #W OSTLIN IF 

6SQN #KUR BUFV #LINIA0 0 % 4 < 

6T0V IF #EB# % 32 CMOVE ENDIF 
6U5P YPOS0 E:V #KUR ELSE BEEP 
6VKC ENDIF ; 

70A1 —> 

7100 

7200 

736U : #<BF OSTLIN IF LBUFF 0 IF #W 
7441 -1 LBUFF +! ADBUFF LBUFF 0 
75IC 32 * + YPOS0 ADLINE % 32 
76VT CMOVE #BUFF? #KUR ENDIF ELSE 
77MC BEEP ENDIF ; 

787N : X#CM #CM XPOS@ + % 4 - ; 

79S3 : XSPAC #CM % 63 + DUP X#CM 
7ANJ XSP #CM % 64 + DUP ROT 
7BFS DO I C@ 0- I 1+ C@ 

7C6Q 0= * IF DROP I LEAVE 
7DJK ENDIF LOOP X#CM - ; 

7EK5 : <#CM> YPOS0 #LINIA0 0 XPOS0 
7FRS YPOS0 1+ #POS ILINIA0 @ - 0- 
7G0T - YPOS ! 

7H54 YPOS0 ADLINE #CM OVER OVER 
7IVN YPOS0 % 27 < IF SWAP % 40 
7JDQ + SWAP % 32 + ENDIF ; 

7KKO : 32CM % 32 CMOVE ; 

7LBI : >#CM #KUR <#CM> #CM 66 
7ME9 ERASE 32CM 32CM ; 

7NK9 : <#CM <#CM> SWAP 32CM SWAP 
70R6 32CM #KUR ; 

7P13 : #> >#CM XSPAC #CM % 63 + 


27 




7QNH C@ 0* OVER X#CM + #CM - % 63 
7R32 < + IF X#CM DUP 1+ ROT 
7SVG CMOVE> 0 X#CM C! ELSE BEEP 
7TNH DROP ENDIF <#CM ; 

7U2K : #< >#CM X#CM 1+ DUP 1 - 
7VUH XSPAC CMOVE <#CM ; 

80A1 —> 

8133 (-) 

8200 

83CI : #DUP DUP DUP % 127 > 

8466 IF % 128 - ENDIF ; 

85DE : ESC DROP KEY #DUP BL = IF 
863S DROP 300 ELSE #PISZ ENDIF ; 

87NL : #KLA0 [ 27 C, 28 C, 29 C r 30 
884V C, 31 C, 155 C, 126 C, 254 C, 
89K0 255 C, 156 C, 157 C, 127 C, 

8AAE ] ; 

8BPO : #NR-KLAW ' #KLA0 % 12 INSTR ; 
8C00 

8D1I SELECT #WYB0 #PISZ ESC ?' ?V ?< 
8ESJ ?> #RET #COF #< #> łT" #W 
8F3R #<BF ; 

8G5I FORTH DEFINITIONS 
8HAI : (E) EDITOR #WEJ 
8154 1 752 Cl #DISPE #RAMKA 
8J2T XPOS@ YPOS@ IfPOS 
8KEM EK-E: #KUR 
8L2B BEGIN 

8MSA KEY DUP #NR-KLAW #WYB0 

8NB9 300 * UNTIL 

8006 #KUR EK-BUF #WYJ FORTH ; 

8P00 

8Q96 : EXFO % 125 EMIT % 80 % 88 +! 
8RGF FORTH" CR 0 752 C! ; 

8SLP : CLEAR % 16 0 DO I SCR g 
8TMH (LINĘ) DROP C/L BLANKS UPDATE 
8U8P LOOP ; 

8VD2 ( END ) 


01RD ( ED-DYSK ) 

0200 

03RO : MARK SCR H 8 * % 8 0 DO I 
041E OVER + BŁOCK DROP UPDATE 
054U LOOP DROP ; 

06MM : E. (E) EXFO ; 

07SU : L. SCR 1 E. ; 

08HS : F. MARK FLUSH ; 

09RM : INDE EMPTY-BUFFERS 

0A2E GGE SWAP GGE 1 - MIN 

0BE5 DO I 8 * BŁOCK 32 -TRAILING 

0CAL OVER g DUP 8224 = 0= * IF CR 

0DA0 I . SPACE TYPE ELSE 2DROP ENDIF 

0EIA ?TERMINAL IF LEAVE ENDIF 

0F1O LOOP EMPTY-BUFFERS ; 

0GSN : IND 1 INDE ; 

0HD2 ( END ) 

EDYTOR FORTHa 

Działanie większości klawiszy w tym programie odpo¬ 
wiada standardowi edytora Atarl, dlatego tez nie będę 
opisywał tych funkcji Część komend edytora może być 
wydawana Jedynie z FORTHa, przez napisanie Ich nazwy 
1 zatwierdzenie klawiszem RETURN, 

Są to, 

L - Wywołuje edytor wraz z podanym przed komedą 
numerem ekranu Np 10 L. (RETURN) to wywołanie 
edytora wraz z ekranem numer 10 


CLEAR - Czyszczenie bieżącego ekranu Czesio istnl< 
Jc taka potrzeba, gdy wywołamy / dysku ekran nie zapi¬ 
sany (serduszka). 

IND - Przegląd nazw ekranów (Dlrectory) Dowolny 
klawisz zatrzymuje przeglądanie 

Dla dysku; 

F - zapis bieżącego ekranu na dysk Uwaga zapis na 
dysku nie odbywa się w formacie DOSa. dlatego tez nale¬ 
ży stosować czystą, slormatowaną dyskietkę. 

Niestety, ograniczona Ilość miejsca na łamach Tajemnic 
Atarl nie pozwala ml opisać wszystkich funkcji edytora. Zo¬ 
staną one zamieszczone w następnym odcinku z tego cyklu. 

Roland Pantola 



Jest grą przygodową wypuszczoną na rynek przez firmę 
Gremlln Graphics z Shelllcld Akcja Jej rozpoczyna się w zna¬ 
nym wszystkim domu przy Baker Street 221 b Na piętrze mie¬ 
szka słynny detektyw Sherlock Holmes 1 Jego przyjaciel Dr Wa- 
tson W tym starym domu po strychach 1 piwnicach buszują 
myszy Jedną z nich Jest Bazyli - mysz detektyw Bazyli ma 
przyjaciela - Dr Dawsona Niestety, profesor Rattigan porwał 
I uwięził Jego przyjaciela. Zadaniem głównego bohatera Jest od¬ 
nalezienie i uratowanie Dawsona Dom przy Baker Street po¬ 
dzielony Jest na 50 pomieszczeń (ekranów) Za wejście do każ¬ 
dego z nich po raz pierwszy otrzymujesz 50 pkt Ruchami my¬ 
szki sterujesz przy pomocy Joysticka, a skaczesz naciskając FI- 
RE Jeśli chcesz długo pożyć musisz skakać, gdyż po wszy¬ 
stkich pomieszczeniach krążą wrogie myszy, a kontakt z nimi 
zmniejsza zapas Twej energii Mały detektyw musi odnaleźć 
1 zebrać przedmioty będące dowodami porwania Dr Dawsona 
Zebranie właściwego zestawu dopomoże ci w uwolnieniu przy¬ 
jaciela Nie zdradzę Jednak. Jaki zestaw Jest właściwy, w końcu 
jego dobranie Jest Twoim głównym zadaniem Wszyst kie przed¬ 
mioty. które należy zebrać, ukryte są w pojemnikach (puszki 
lub słoiki), rozmieszczonych w domu lub Jego otoczeniu Aby 
zabrać taką rzecz, należy podnieść Ją. używając do tego celu 
klawisza SPACJA. Bazyli schyli się wówczas i podniesie przed¬ 
miot, aby go obejrzeć przez lupę (znajdującą się w prawym do¬ 
lnym rogu ekranu) Jeżeli chcesz wziąć znaleziony przedmiot, 
skieruj Joystick do góry 1 naclśnlj F1RE Natomiast gdy chcesz 
Jakąś rzecz zostawić, skieruj Joystick w dół i również naclśnlj 
FIRE Gdy zbierzesz Juz cały komplet, a zestaw nie Jest właści¬ 
wy mozesz wziąć nowy przedmiot, wyrzucając któryś zc sta¬ 
rych Po drodze staraj się badać zawartość wszystkich pojemni¬ 
ków. gdyż w niektórych ukryty Jest żółty ser - pożywienie Bazy¬ 
lego Jeśli kończy się energia (o czym przypomina charaktery¬ 
styczny sygnał dźwiękowy) musisz szybko dotrzeć do pojemni¬ 
ka 1 pożywić się Kiedy kawałek sera ukaże się pod lupą skie¬ 
ruj Joystick do góry i naclśnlj FIRE - zapas sił zostanie odno¬ 
wiony Staraj się zapamiętać, w których pomieszczeniach 1 poje 
mnlkach ukryta Jest żywność, ale nie zjadaj jej. Jeśli masz Jesz¬ 
cze spory zapas sił (zostaw ją na później) Bohater może przeni¬ 
kać do zamkniętych pomieszczeń przechodząc przez skrzynki 
na listy umieszczone na drzwiach i w kilku innych miejscach 
Aby tego dokonać należy stanąć pod skrzynką I podskoczyć 
Niestety, do niektórych doskoczyć się nie da, można tylko 
przez nie wypaść. Jeżeli nie dość ostrożnie poruszasz się po la¬ 
biryncie Jeżeli dobrze poznasz rozkład pomieszczeń, mozesz 
takie ukryte przejście wykorzystać dla szybkiego przemieszcza¬ 
nia się do Innych części domu 1 jego otoczenia 


E. - Wywołanie edytora z bieżącym ekranem. 

Wyjście z edytora do FORTHa jest możliwe po naclś- 
28 nlęclu ESC a następnie SPACJI 


Pamiętaj: Jeżeli pomieszczenie Jest dostatecznie wysokie, 
mozesz nad myszami przeskoczyć. Jeżeli nie - kontakt Jest nie¬ 
uchronny Staraj się więc Iść Jak najszybciej, bowiem myszy są 
wolniejsze od Ciebie Nie zatrzymuj się po wejściu do nowego 







& 


IKimleszezenta tylko próbuj przejść kawałek ponieważ na ogol 
na Jego skraju e/c ka wroga mysz Kiedy wróg pilnuje pojemni 
ka. do którego < heesz zajrzeć. musisz szybko ptxiejść I jak naj- 
s/ylx lej wc Isn,^ klawisz SPACJA W czasie badania zawartości 
|K>Jcmnika kontakl z obca mys/a nie Jest groźny Jeśli wczmlcsz 
znaleziony prze dmlot lub go zostawisz to szybko ode hodź z tego 
miejsca Kiedy chcesz skorzystać" z drabiny przy której ehodz.l 
mysz. podejdź do niej ostrożnie ustaw szybko joystick na środku 
i skie ruj go w górę lub w dół, zależnie od kie runku w klórym 
masz Iść Przebywając w sklepie pamiętaj by nie spaść- na prawo 
gdyż znajdziesz się w exileg!ej części zaplecza Uważaj na stopnie 
Jeśli na e/as nic- pcxiskcx zysz. musisz się cofać aby nabrać roz- 
|X r , du a tymczasem wroga mysz depcze Bazylemu po piętach I za- 
I llera energię Dziury znajdujące się w podłodze przeskakuj 
w biegu Gdy rozpoczynasz nowa grę, poszukiwane przedmioty 
Ijędą w Innych miejscach nlz poprzednio, ale mimo wszystko 
. wróó uwagę na le pomieszczenia, w klńryoh Ich przedte m szuka¬ 
łeś 

Klawisz ESC naciśnięty w czasie gry powcxiuje zatrzymanie 
Mozesz to wykorzystaó Jako chwilę do namysłu bo czasu nie 
ma zbyt wiele Wznowienie gry naslępujc po ponownym wciś¬ 
nięciu klawisza ESC Ostrzegam przed naciskaniem klawisza 
iunkeyjnego HELP - powoduje on zawieszenie gry I koniecz¬ 
ność jej ponownego wczytywania co jest szczególnie przykre 
w wersji kasetowej 

TATAR 



PILLBOX to typowa gra zręcznościowa, kiorej zasady 
sprowadzają się do umiejętności sprawnego posługlwa 
nla się joystickiem Przed grającym stoi trudne zadanie 
utrzymania kluczowe) pozycji na Unii frontu Jego reduta 
atakowana Jest przez, niezliczone zastępy wrogich żołnie 
rzy \a przedpolu rozstawione są trzy rzędy murków, za 
ktorvini ukrywają się przeciwnicy Obrońca, odpowie 
dnlo dysponując pozostawionym mu karabinem maszy¬ 
nowym, powinien przeciwdziałać przemieszczaniu się 
żołnierzy pomiędzy zasiekami Kiedy (eden z nich doczoł- 
g.i się do końca ekranu, reduta zostaje zdobyta 1 gra 
k< ińezy się 

Naciskając klawisz ESC mo/na wrócić do planszy tytu¬ 
łowej Ponowne użycie ESC umożliwia powrot do DOS-u 
S.“. 

IJ 1000 REM *-* 

SG 1002 REM : PILLBOX 

KN 1004 REM : autor: Wojciech Rawdanik : 

YY 1006 REM : (c) 1992 Tajemnice ATARI : 

JP 1008 REM *-* 

HU 1010 DATA ffff0080df8ba56a48ad0ld348 
GI 1020 DATA a50f48a9c0c56af00e856aad0l 
PW 1030 DATA d309028d01d3a960850fa9de8d 
CB 1040 DATA a403a98a8da503a90f8dab03a9 
NZ 1050 DATA 008daa03a9038da203a2602056 
VD 1060 DATA e4a90c8da2032056e4a902aa9d 
HN 1070 DATA e5a0cal0faa9418de8a0a9368d 
JJ 1080 DATA e9a0a9a08deaa0a9008dc60285 
HR 1090 DATA cb85cd8d94068d9506a9e085cc 
WQ 1100 DATA a99085cea000blcb4allcb91cd 
YZ 1110 DATA 88d0f6e6cce6cea9e4c5ccb0ec 
TA 1120 DATA a9908df402a90a8dc502a9058d 


MN 1130 DATA c602ad24028d0306ad25028d04 
FU 1140 DATA 06a907a03fa286205ce4ade4a0 
JR 1150 DATA 09808de4a0a99c8d0002a9868d 
JS 1160 DATA 0102a9c08d0ed4a2008e05068e 
PS 1170 DATA 12068ela06e88efc02204788a9 
YM 1180 DATA 048d6f02a9008d00068d01068d 
ON 1190 DATA 110620d587ad0106d02d201c88 
TW 1200 DATA ae0006bd4b8aa88a20278820eb 
XY 1210 DATA 87ad0106d017a98020fe87ad01 
CM 1220 DATA 06d00dae0006e88e0006e003d0 
PI 1230 DATA cdf0c0ad0106c91cd0034caf89 
ZO 1240 DATA 20d587201c88a903a000202788 
CY 1250 DATA 20eb87a220bd838b9de08bcal0 
YN 1260 DATA f7a9908d07d4a9008d08d0a901 
MY 1270 DATA 8d6f02a9028dldd0ad2f02091C 
SW 1280 DATA 8d2f02a90f8dc002a2ffa9009d 
EQ 1290 DATA 0094cad0faa92885cfa99485d0 
EK 1300 DATA a9728d00d08d0606a9008d0706 
TK 1310 DATA 200486a9008d01068d0906ee05 
YQ 1320 DATA 068d0f06a90d8d0b06a9378d0a 
NE 1330 DATA 06a9008d92068d80068d81068d 
CU 1340 DATA 90068d9106a9808dl806a9038d 
TZ 1350 DATA 1506a9058dl906a90a8dld068d 
IZ 1360 DATA Ie06d04fceld06d04a204c89a9 
PV 1370 DATA ff8d0c068d0d06a20ebdcf8a9d 
ZB 1380 DATA 9cbbcal0f7a90020dd89a20ea9 
NZ 1390 DATA 009d9cbbcal0f8a90cl86d9206 
EO 1400 DATA 8dld068dle06ad9206c902d003 
BY 1410 DATA cel506c909d008cel506a9208d 
VN 1420 DATA 1806eel906a9008dl206a9ff8d 
YN 1430 DATA 0c068d0d06adl806208889e001 
QL 1440 DATA f00ca9f58514864da514d0fcf0 
LX 1450 DATA dda940208889e004d0034cce82 
OD 1460 DATA e00tf038e003d018a9ec85cba9 
KD 1470 DATA 8b85cca9el85cda98b85cea900 
WM 1480 DATA 8dlc064c5083e002d0ada9f685 
XE 1490 DATA cba98b85cca9eb85cda98b85ce 
PC 1500 DATA a9ff8dlc064c5083adle06f0b3 
OW 1510 DATA ad1a06cd1906 f0aba20abdf 6 8b 
VN 1520 DATA f006cal0f84c3782a940208889 
AL 1530 DATA 8aa80aaabdf68bd0f28el70688 
HR 1540 DATA 98eela06cele0620df84ad0e06 
AF 1550 DATA d009205b87ee0e064cc581ael7 
HU 1560 DATA 06a9029df68b4cl482a20abde0 
KZ 1570 DATA 8bc902f006cal0f64c3782a940 
XP 1580 DATA 208889a0008elc068a0aaabde0 
TN 1590 DATA 8bf0ee989de08be002d0058c0f 
EK 1600 DATA 06f01ce008d007a9018d0f06d0 
KR 1610 DATA 1Ia980208889e001d0058e0f06 
IN 1620 DATA d0038c0f06aelc06ca8a!86907 
GH 1630 DATA a005204f84ad0e06d009205b87 
XS 1640 DATA ee0e064cc581201c88a904a00d 
ZZ 1650 DATA 202788a9008d01d28d05068d00 
CP 1660 DATA d0a90120dd894cc480a00ablcb 
GW 1670 DATA c902f0068810f74c3782a00abl 
SB 1680 DATA cdf00688l0f94c3782a9402088 
JE 1690 DATA 898elb068a0aa88c0f06blcbc9 
UU 1700 DATA 02d0eca9808d0006208889ca8a 
TX 1710 DATA ac0f06c901f01088a9028dl706 
NJ 1720 DATA blcdf069c8ad0006f013c8a901 
HE 1730 DATA 8dl706a9008d0006blcdf05488 
RO 1740 DATA 4c8f83adlc06f01ba9048dl706 
DP 1750 DATA 8888blcbf040a9038dl706c8c8 
KL 1760 DATA c8c8blcbd09b4c0284a9502088 
DQ 1770 DATA 898aac0f06c901d015eelc06ad 
CF 1780 DATA Ic06c904f060a9048dl7068888 
ZX 1790 DATA blcbf00eac0f06a9038dl706c8 
GZ 1800 DATA c8blcbd0d0celb069848ac0f06 
RM 1810 DATA a90091cb68aaadlb068elb06ac 
BL 1820 DATA 1706aelc06e0ffd006204f844c 
SC 1830 DATA 2984204c84ad0e06d009205b87 
QH 1840 DATA ee0e064cc581a902aclb06a202 
YG 1850 DATA ecl706b00491cb900291cd4cl4 
LN 1860 DATA 821869040aaabdac8b8500bdc2 
HD 1870 DATA 8b8d0c06e8bdac8b8501bdc28b 
CS 1880 DATA 8d0d06c001f029c002f029c003 
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BO 

WX 

FA 

WO 

ET 

BW 

VK 

VW 

OT 

SV 

MA 

BX 

SF 

FT 

DE 

VO 

ZL 

YI 

PV 

UX 

MA 

OL 

OY 

AN 

VL 

HT 

NP 

CT 

JE 

LI 

ZU 

SZ 

RE 

HX 

CL 

VW 

FQ 

AP 

AR 

JD 

TU 

ID 

NY 

CQ 

DB 

OU 

HQ 

IY 

ED 

VR 

JP 

TK 

GG 

BV 

UC 

VU 

NT 

AS 

IB 

QO 

YM 

KX 

WF 

LB 

UQ 

MY 

CJ 

XI 

SJ 

KU 

PQ 

HA 

IQ 

BZ 

XA 

LA 


1890 

DATA 

1900 

DATA 

1910 

DATA 

1920 

DATA 

1930 

DATA 

1940 

DATA 

1950 

DATA 

1960 

DATA 

1970 

DATA 

1980 

DATA 

1990 

DATA 

2000 

DATA 

2010 

DATA 

2020 

DATA 

2030 

DATA 

2040 

DATA 

2050 

DATA 

2060 

DATA 

2070 

DATA 

2080 

DATA 

2090 

DATA 

2100 

DATA 

2110 

DATA 

2120 

DATA 

2130 

DATA 

2140 

DATA 

2150 

DATA 

2160 

DATA 

2170 

DATA 

2180 

DATA 

2190 

DATA 

2200 

DATA 

2210 

DATA 

2220 

DATA 

2230 

DATA 

2240 

DA1A 

2250 

DATA 

2260 

DATA 

2270 

DATA 

2280 

DATA 

2290 

DATA 

2300 

DATA 

2310 

DATA 

2320 

DATA 

2330 

DATA 

2340 

DATA 

2350 

DATA 

2360 

DATA 

2370 

DATA 

2380 

DATA 

2390 

DATA 

2400 

DATA 

2410 

DATA 

2420 

DATA 

2430 

DATA 

2440 

DATA 

2450 

DATA 

2460 

DATA 

2470 

DATA 

2480 

DATA 

2490 

DATA 

2500 

DATA 

2510 

DATA 

2520 

DATA 

2530 

DATA 

2540 

DATA 

2550 

DATA 

2560 

DATA 

2570 

DATA 

2580 

DATA 

2590 

DATA 

2600 

DATA 

2610 

DATA 

2620 

DATA 

2630 

DATA 

2640 

DATA 


£047c004f047a9008dl006a904 
8dl606a9138dl306a9018dl206 
209889adl206d0£860a900f002 
a9018d0f06a9008dI006a9Ic8d 
1306a9048dl606a9018dl20620 
9889adl206d0£860a900f002a9 
018d0f06a9008dl006a9088dl3 
068dl606a9018dl206209889ad 
1206d0f8600aaabda4 8b8500bd 
d88b8d0c06e8bda48b8501bdd8 
8b8d0d068dbc06a9008dl6068d 
1006a9078dl306a9018dI20620 
9889adl206d0f860ad0906f003 
4cla86ad8402d0034cca85ad78 
02c907 £06dc90bd0034cb285ee 
0106ae0I06e005d008c90ef034 
c90df00aa2008e7802e88e8402 
60a9008d0106ad0706c903 f019 
ee070620£a85ad0b061869308d 
0b06a5c£18693085cf20048660 
a9008d0106ad0706f0£5ce0706 
20fa85ad0b0638e9308d0b06a5 
cf38e93085cf20048660a9f fae 
0606e0b8£0d2e8e8ee0a06ee0a 
068e06068e00d060a9£fae0606 
e040f0bacacace0a06ce0a068e 
06068e00d06020fa85209e87a9 
078dc002a90f8d00d2ad0e06d0 
0b20e088a9f28d00d28dc00220 
0£86a9018d0906a9058d08064c 
Ia86a00fa9009lcf8810£b60a0 
0eb9e78a91c£88l0f860a00cb9 
f68a91c£88l0f860ad0806300f 
Ce0806ae0806bd3b8a8d01d24c 
3e86a90f8dc002200486a9008d 
09068d01d260adel8a8dc402ad 
e28a8dc502ade38a8dc602ade4 
8a8dc802ad0506£03dad0106c9 
0Sd005a9008d0106201685adl2 
06f029cel406d024adl5068dt4 
0620b086ad0e06d006cela0b4c 
9186adl006cdl306d008cel206 
a9008d03d26c03060848ade58a 
8d0ad4 8d18d0ade6 8a 8d17d06 8 
2840ad10062901£030208887ad 
110649018dl106£013a9038d41 
878d4887a98b8d42878d4 9874c 
e786a9338d41878d4887a98b8d 
42878d4987adl006eel006cdl6 
06b025205b87ad0f06d00ee600 
ad0c061869048d0c064cl387c6 
00ad0c0638e9048d0c06203687 
60ael006e033f017205b87ce0d 
06ce0d06a50038e9508500b002 
C60l20368760a50048a50l48a2 
00a000bd038b9100e8c8bd038b 
9100e8207c87e030d0ea68850l 
68850060aS0048a50148a200a0 
00a9559100e8c89l00e8207c87 
e030d0ee68850l68850060a500 
1869288500S002e60l60adl006 
2901f004a97ad002a9de8d02d2 
a9058d03d260ad0c06186908cd 
0a069026ae0a06e8ec0c06901d 
ad0d06186917cd0b06 9012 ad0b 
06186902cd0d069007a9008d0e 
06f005a90l8d0e0660a9ff8dfc 
02aee68aca300a8ee68aa9fe20 
£e87f0£060aee68ae8e00df00a 
8ee68aa9fe20£e87f0ee608514 
adfc02c90cd00S8d0106f00£c9 
Icd0058d0106f006a514d0e785 
4d60a900a22 79db9bbcal0£a60 
0aaabd418a8d3988e8bd418a8d 
3a88a200bd748ac9f ff00799b9 
bbc8e8d0f260a2a8a95385cba9 


IT 

2650 DATA al85cca903a0009Icba955c891 

PB 

2660 DATA cbc02ld0f9a9c091cb20d488ca 

KM 

2670 DATA d0e7a9ffa2 1 f9d54a19d6cbbca 

JO 

2680 DATA 10f7a91685cda9a585cea90420 

RF 

2690 DATA 9f88a99a85cda9ac85cea90320 

ON 

2700 DATA 9f88a91685cda9b485cea90420 

HP 

2710 DATA 9£88608d0006a5cd85cba5ce85 

WG 

2720 DATA cca200a000bd638b9Icbc8e8c0 

ZK 

2730 DATA 04d0f520d488e020d0ecac0006 

YC 

2740 DATA 888c0006f00aa5cdl8690885cd 

CD 

2750 DATA 4ca28860a9281865cb85cb9002 

SK 

2760 DATA e6cc60ee9006d003ee9106ad90 

VA 

2770 DATA 0685d4ad910685d5a9d885cba9 

QV 

2780 DATA bb85cc206489ae9206a9010aca 

VO 

2790 DATA d0fcl86914186d80069003ee81 

DP 

2800 DATA 068d800685d4ad810685d5a9ca 

xs 

2810 DATA 85cb206489ae9506ec8106900a 

RR 

2820 DATA d01ead8006cd94069016ad8006 

NQ 

2830 DATA 8d9406ad8l068d9506a005blcb 

ZC 

2840 DATA 99858a88d0f860ee9206a90085 

NG 

2850 DATA d5ad920685d4a9bc85cba9bb85 

QU 

2860 DATA cc2064896020aad920e6d8a208 

DM 

2870 DATA a005bd8005c92ef003cal0f6ca 

KL 

2880 DATA bd800538e920297£91cb88cal0 

SN 

2890 DATA £260a2008dl706ad0ad238edl7 

SC 

2900 DATA 06e8b0£a60ad£c02c9lcd00f68 

ZD 

2910 DATA 686868a9008d01d28d03d24cc4 

YT 

2920 DATA 8060a514c514 f0fcad03068d24 

PG 

2930 DATA 02ad04068d2502a9408d0ed4a9 

EL 

2940 DATA 228d2f02a9008d00d068850f68 

DY 

2950 DATA 8d0ld368856a6c0a00f00da92c 

xc 

2960 DATA 8df989a98a8dfa894cf689a926 

FB 

2970 DATA 8df989a98a8dfa89a200bd268a 

YW 

2980 DATA c9f£f00620068ae8d0f3608d02 

GP 

2990 DATA d2a8c88c04d2a9e78d03d28d05 

UW 

3000 DATA d2ac3a8a8414a5l4d0£c8d03d2 

PP 

3010 DATA 8d05d2603c352f3c3cff6b6c78 

xs 

3020 DATA 798f90ala2bfc06b8f8e££f701 

DQ 

3030 DATA 0204070a0£4e8a748a8c8a9d8a 

HS 

3040 DATA c38a00070a0030292c2c222f38 

CY 

3050 DATA 005400370e32617764616e696b 

GH 

3060 DATA 00540008230900111919120034 

NU 

3070 DATA 0e210eff2e212a2c2530333a39 

DH 

3080 DATA 0037392e292b000d0010101010 

FW 

3090 DATA 10ff372329332e292a0080b2a5 

JU 

3100 DATA b4b5b2ae80ff302f3a292£2d0d 

DP 

3110 DATA 10100030352e2b34390d101010 

EV 

3120 DATA 1010100037322f272f3729250d 

YM 

3130 DATA 101010l0ff2b2£2e2925230000 

CT 

3140 DATA 273239£f2e21333425302e3900 

QS 

3150 DATA 302£ 3a292£2d533a9bf7952a00 

EL 

3160 DATA 000c001818181818e7e7e71818 

CE 

3170 DATA 181818000009802 4 105d182a40 

EC 

3180 DATA 1482120816959aa51aa4100604 

FF 

3190 DATA 140aa4000a4000500550055005 

QC 

3200 DATA 50054aa50005000500050505a5 

VH 

3210 DATA 010501a54la569554155695569 

HC 

3220 DATA 56945aa61aa4900414l01aa00a 

PC 

3230 DATA 00000100054005500550055aal 

YG 

3240 DATA 5020500050005050405a405041 

MP 

3250 DATA 5a695a415569556955£fffffff 

PE 

3260 DATA eaaaaaaac2000200c2000200ea 

IR 

3270 DATA aaaaaac0020002c0020002aaaa 

WX 

3280 DATA aaaa0101000100010001000101 

JG 

3290 DATA 01010100010001000101010101 

LZ 

3300 DATA 00010001000100010187b78fb7 

FW 

3310 DATA 97b79fb757b55fb567b56fb5db 

JI 

3320 DATA ade3adebad57a65£a667a66fa6 

DQ 

3330 DATA 0c812c814c817081Ic503c505c 

WF 

3340 DATA 500clf2cl£4clf701f0c8f2c8f 

Ol. 

3350 DATA 4 C8f708fe002e1020080 
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ANTIC 

ASSEMBLER 


i 


Tworzeniem obra/u na monuorze w małym \t.. i zaj¬ 
muje sic specjalnie- do tego celu zalroujklowain mikro 
procesor, zwany Audi Program dian tworzy auloiirmi z 
nic sysunu operacyjny lup po kom mii 1 c GRAPHIC S! 
bądź tez (ryczmc) u/yikowuik W tym drugim przypadku 
może być to czynność nieco żmudna 1 stresująca Abv te 
mu jakoś zaradzi* , stworzyłem przedstawiony niżej pro 
grani Jesi to assemblcr. a wice program tłumaczący pe¬ 
wien tekst, będący ciągle m symbolicznie zapisanych roz¬ 
kazów mikroprocesora, na postać dla lego ostatniego 
zrozumiałą 


iiych przez Autit Asscmbkr Pcxlziellc je wszystkie moż¬ 
na na 2 grupy rozkazy mikroprocesora Antlc. oraz pseu 
dorozkazy. mające za zadanie jedynie ułatwienie życia 
programiście 

1. Rozkazy Anticu 

SET bajt [,LMS [>]słowo,DLI,HSC,VSC] Rozkaz len 
powoduje wygenerowanie linii obrazu w Irybie określo¬ 
nym parametrem baji (przyjmującym wartości 2 15) 
Chodzi tutaj o irvb Anticu. a nie systemu operacyjnego 
Tak więc jeśli chcemy uzyskać link; trybu GRAPHICS 0. 
wartość paramt tru bajt wynosić musi 2 Po rozkazie 
SET możliwe są 4 rozkazy dodatkowe (Izn ustawiające 
bity w starszej połówce bajlu rozkazu! HSC - włącza 
przesuw poziomy (w danej linii). VSC - włącza przesuw 
pionowy. DLI wywołuj* przerwanie DLI LMS|>jsłowo 
powoduje załadowanie licznika obrazu adresem okre¬ 
ślonym przez "słowo" Oznacza to. ze dane do wyświetl*' 
ula pobierane będą właśnie od tego adresu. Jeżeli para¬ 
metr ow poprzedzony jest znaczkiem ">". lo adres ow 
Jesl sumą argumentu poprzedniego LMS-a 1 parametru 
"słowo" Tak więc program 

SET 2,LMS $20 
SET 2,LMS $10 


OBSŁUGA 

Bezpośrednio po uru* homlenlu ekran dzielony jest na 
dwie części. Dolna - to okno komunikatów Tam wy¬ 
świetlany jest listing aktualnie tworzonego programu An¬ 
tlc. lam także poJawin|ą się wszelkie komunikaty o błę- 
da* h Górna część - to okno robocze. W nim ustawiane 
są wszystkie parametry pracy programu W polu "Nazwa 
pliku ' należy wpisać nazwę pliku do odczytu (cwll pliku 
zrodłowego) lut) zapisu (czyli pliku wynikowego) Kieru¬ 
nek przepływu danych podany jest w oknie roboczym po 
słowie "Tryb L/ylkownik ina możliwość' zde finiowania 
rodzaju pliku wynikowego może nim być ciąg znaków 
Ascll (opcja NUM) lub plik zrodłowy Quiek Asscmbicra 
Wyboru dokonywać można klawiszem CNTL + K Oprócz 
tego działają następujące klawisze specjalne : 

• CNTL+T - przestawia program z trybu Zapis" na 
tryb Odczyt' (nigdy odwrblnlc) eo równoznaczne jest 
ze skasowaniem bulora programu 

• CNTL+N - zmienia Urządzenie, zewnętrzne na któ¬ 
rym przeprowadzana będzie następna operacja 
wcAvy Możliwe są trzy D - stacja dysków nr 1. C - 
magnetofon 1 T: - magnetofon turbo W niektórych sy- 
slcmac h Turbo odczyt będzie przeprowadzany z urzą¬ 
dzenia D : - jest to kwestia użytego systemu 

• SPACE - powoduje wyświetlenie katalogu dyskietki 
w slaejl nr 1. Jeżeli w polu nazwy' pliku są wpisane 
jakieś znaki to traktowane są one jako wzorzec prze¬ 
szukiwania katalogu Gdy pole ua/wy jest puste, 
wzorcem tym automatycznie staje się Dl:* * 

• CLEAR powoduje skasowanie pola nazwy pliku 

• ESC - powoduje wyjście z programu 1 powrol do sy¬ 
stemu nadrzędnego. 

• RETURN - potwierdza wpisaną nazwę pliku 1 prze¬ 
chodzi do odczyt u/zapisu danych. 

ASSEMBLER 

Do przygotowania listingu zrodłowego potrzebny jest 
dowolny edytor tekslow (np PANTHER, czy edytor QA). 
Ponlżęj przedstawiona jest lista rozkazów rozpoznawa- 


da w eh kc ie 

dta b($42),a($0020| 
dta b($42),a($0010) 

a (dla porównaliial program 

SET 2,LMS $20 
SET 2,LMS >$10 

wygeneruje k*xi 

dta b{$42),a($0020) 

dta b($42),a($0030) — czyli $20 

z poprzedniego LMS—a 
zsumowane z $10. 

Jeżeli nie użyto wcześniej żadnego ro/ka/u LMS. jako 
pierwszy składnik sumy przyjmowany Jest adres podany 
w pseudorozkazie ADR, lub (jeżeli 1 on ule był u/.yly) po 
prostu zero 

EMP bajt [,DLI] - powoduje wygenerowanie na ekra 
nie puslyc h linii, leh liczba określona jesl parametrem 
bajt 1 przyjmuje wartości 18 Możliwy jest tutaj, podo¬ 
bnie jak t w dwóch następnych rozkazach, tylko jeden 
rozkaz dodatkowy DLI Uwaga! 1 Unia ekranu ma gru 
bose linii obrazu w (rybie GRAPHICS 8. Tak więc EMP 
8 wygeneruje na ekranie "pasek’ grubości linii w lryhle 
GRAPHICS 0 

JMP adres [,DLI] - powoduje stworzenie 1 pustej linii 
ekranu I bezwarunkowy skok pod p*xlany adres 

JVB adres [,DLI] - powoduje skok pod podany ad 
res po oczekiwaniu na synchronizację pionową. 

Więcej mlorniaeji na lemat działania rozkazów mikro¬ 
procesora odnaleźć można w cyklu "Piszemy demo" pre¬ 
zentowanym ostatnio na łamach "TA". 

2. Pseudorozkazy 

ORG adres - usłała adres początku programu Anticu 
Jeżeli użyto tego rozkazu, to w trybie QA wygenerowana 
zostanie linia 



i mtm 

HM 






,-k* ■ i'. 


org adret 

w trybie* NLM natomiast stwor/om Posianie o lupowy 
nagłówek pliku 

DEF etykieta Ten rozkaz zadziała tylko w trybie yA 
Na pcx*zaiku każdego pliku wynikowego dla QA iwor/oua 
jest linia 

dlLSt equ * 

DEF po/wala zmienił e*lvkie*ię dlisl na dowolna inna 
(max 6 ł>a|i<iwa). 

REM komenlarz wszyslkle* znaki po ro/ka/ii REM sa 
ignorowane Ignorowane sa również wszystkie teksu jx> 
prawidłowo zinterpretowanym rozkazie W przypadku 
rozkazów Anilcii ieksly owe nic mogą jednak zaczynać 
się mi przecinka 

ADR - deliniiife pl«-rwszv składnik sumy dla rozkazu 
LMS >adres 

REP bo/t poezaick pęlll. Wszysikie iusiruke|e mie¬ 
dzy REP a \XT będą asenihlowane lyłe razy III określa 
lo liezlia “l>a|i" (z zakresu 1 2551 Pi ile mogą liyi za 
gnleżdżane (Izn. |edna może bye* iiinieszi zana wewnalrz 
drugiej) do 8 razy. 

NXT Oznaczenie końca pełli 

END - Koniec pliku źródłowego Przerywa asemlilac |ę 

W powyższym zeslawienm w nawiasac h kwadralo- 
wyc h podano le elemeniy rozkazu klore mogą wystąpię'-, 
ale nie muszą Anlle Assembler nie slawia żailnyi U wv 
magan odnośnie tabulacji. użylyeli liier (mogą bye duże 
I małe*). do woli używać- można irybu lnverse vkleu Licz¬ 
by wpisywać'- inozna dz.lcslęliilc. lub szesnasikowo 
w lym wypadku poprzedzać je należy znaczkiem S” 
(l waga’ Liczba hcx musi nasię |>owa< bezpośrednio po 
"S" 'I - Linie- pusic- sa ignorowane*. 

BŁĘDY 

A oio lisia komunikatów o błędac h, wraz z. krolkim ko 
meniarzem 

• Blacl we|sc*iaAvy|sela - występuje przy wszełkic-go ly- 
pu problemach z transmisja danych. 

• Plik zbyt długi - Plik źródłowy przekracza dozwoloną 
objętość 4 KB. 

• Błąd składni - Anlic Assembler nie rozpoznał w linii 
zaelnej Instrukcji Błacl len może wvsląpie. gdy ko¬ 
mentarz po rozkazie* Antieu po|>rzedzono przŁseln- 
kic-m. 

• Nielegalny rozkaz Lzvio rozkazu |x»dslawowego (np 
SET. czy REP) w miejscu przeznaczonym dla rozkazu 
dodatkowego IHSCWSC). lub odwroiule 

• Zły lornial lekstu - cłługose linii w pliku źródłowym 
przekracza 255 bajlow 

• Oczekiwana liezlia - nie podano parametru rozkazu 
Błąd ten występuje lak/.e w przypadku oddzielenia 
spacjami znaczka cxł liczby lu*x 

• Oc-zeklwana eiykleJa - brak etykiety po rozkazie DEF. 

• Przekroczony zakres parametru - wartość* parametru 
rozkazu przekracza dozwolone wartości tpatrz opis 
rozkazowi 

• Przepełnienie stosu - zbyt dużo zagnieżdżonych pęlll 
REP/NXT Maksymalna liczba to 8. 

• NXT bez REP - użyto NXT bez cxlpowlada|ąc*cgo mu 
REP. 


• REP lx z \XT Pętla REP \XT nic została zamknięta 

• Plik wynikowy zbyt długi bind len występuje gdv li¬ 
cznik rozkazów wyzerną się w trakcie asemblncjt 
W trakc ie prac y z |imgrameiu trzeba panik tac że 

ATARI może be/ problemów wyświetlić- jedynie około 
210 linii ekranu Większa ic h liczba spowoduje zerwanie 
syuelironizaeji obrazu 

Po każdym komunikacie biedo asemblae ji należy na 
c-isuat dowolny klawisz, jirogram be*dzle kontynuował 
prace; (kexl wynikowy nie będzie jednak już tworzony! 
Asemblae |e* prze-rwne można w każdej chwili, nac iskajac 
ESC 


1J i 000 REM *-* 

HW 100Ź REM : ANTI C Assembler 6.3 : 

QV 1004 REM : autor: Maciej Czat not a : 

YY 1006 REM : (ci 1992 Tajemnice ATAKI : 

JP 1008 REM *-* 

CQ 1010 DATA fit10080958335633869048563 
TG I0Ź0 DATA 85922094efd9e08594a5928596 
PJ 1030 DATA a90085938595a203a000bl9391 
VQ 1040 DATA 95c8d0f 9e694e696cal0f0a200 
0J* 1050 DATA 8690869Ia5928596a690bd078a 

BP 1060 DATA )0ż' i e6900a0a9004e696e6960a 
VC 1070 DATA 9002e6968595a000a69lbdl08a 
Elf 1080 DATA 9 195e8c8c008d0f586914c3280 
YG 1090 DATA a5928d£ 402a9038554a9d28d30 
SD 1100 DATA 02a9878d3102a5581869788dde 
1110 DATA 8 7a55 9 69008ddd87a284a036a9 
GO 1120 DATA 07205ce420£d£2a207dd6d88£0 
FO 1130 DATA 30cal0f820at83c92a£008c92e 
MY 1140 DATA 90e8c95bb0e4ac018ac00cd004 
VD 1150 DATA 888C018a99778820ba83ac018a 
FT 1160 DATA 993188c88c018a4c8d808a0aaa 
IL 1170 DATA bd8e878de080bd8f878del80a2 
1S 1180 DATA e4d062a907205ce420df804c84 
GG 1190 DATA 80ac038ar8c002d002a0008c03 
YW 1Ź00 DATA 8a980a0aa8a200b997889d6988 
DU 1Ź10 DATA C8e8e003d0f460ad028af017a9 
ZR 1220 DATA 008d028a0a0a0aa8a200b98788 
VO 1230 DATA 9d5b88e8c8e007d0f460ac008a 
UY 1240 DATA c8c003d002a0008c008ab98488 
UF 1250 DATA 8d758820ba838d2f8860a56al8 
SD 1260 DATA 6904856a2094ef6c0a00a20ca9 
WE 1270 DATA 009d31889d7788ca10f7e88e01 
YH 1280 DATA 8a6020b584a21020a781ac018a 
DK 1290 DATA f003209c81ac7588c044f00320 
EA 1300 DATA a781a9069d4a03205d843015a2 
XY 1310 DATA 10207c84300aa280a0052042c6 
FX 1320 DATA 4c7f8lr088f005a90020a5844c 
MY 1330 DATA 7284a9759d4403a9889d450360 
LH 1340 DATA a99f9d4403a9889d450360ac01 
ZS 1350 DATA 8af00a20c2818820C2818c018a 
BC 1 160 DATA 60a900993188a92099778860ad 
0V 1.170 DATA 028a0aa8b99e878ddf81 b99f87 
KY 1180 DATA 8de08120de81a58ef005a90a20 
UT 1390 DATA a584a58dd015a594c583a595e5 
TX 1400 DATA 84 100ba9018d028a200f81204 9 
QX 1410 DATA 8160a910a2029d5088cal0fa20 
1420 DATA b584204f8410034c9481a907a2 
TF 1430 DATA 109d4203a9569d4403a98a9d45 
FN 1440 DATA 03ad058a9d4803ad068a9d4903 
jPĄ 1450 DATA 2056e43005a9014ca584c088d0 
EP 1460 DATA d2a95685f3187d48038594a98a 
IB 1470 DATA 85f47d49038595207284a900a2 
KB 1480 DATA 05958bcal0£b8d528a8d538aa2 
CR 1490 DATA 05bda6889de289cal0f7a59485 
BC 1500 DATA 83a5958584a00084f2blf3c99b 
Ot 1510 DATA £00c297f91f3c8d0f3a9044c9a 
KF 1520 DATA 84205d838580a8a902b02ea903 
ŁO 1530 DATA C00cb028b9dc88f00720c983a9 
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SH 

1540 

DATA 

wu 

1550 

DATA 

ER 

1560 

DATA 

UP 

1570 

DATA 

VE 

1580 

DATA 

YU 

1590 

DATA 

YG 

1600 

DATA 

QG 

1610 

DATA 

RP 

1620 

DATA 

JT 

1630 

DATA 

KZ 

1640 

DATA 

ZG 

1650 

DATA 

BG 

1660 

DATA 

GW 

1670 

DATA 

ZH 

1680 

DATA 

DR 

1690 

DATA 

GO 

1700 

DATA 

KE 

1710 

DATA 

BS 

1720 

DATA 

DY 

1730 

DATA 

QN 

1740 

DATA 

RK 

1750 

DATA 

QV 

1760 

DATA 

NS 

1770 

DATA 

BF 

1780 

DATA 

DN 

17 90 

DATA 

AL 

1800 

DATA 

TL 

1810 

DATA 

EB 

1820 

DATA 

QD 

1830 

DATA 

GP 

1840 

DATA 

WB 

1850 

DATA 

ZD 

1860 

DATA 

UZ 

1870 

DATA 

DO 

1880 

DATA 

xs 

1890 

DATA 

HO 

1900 

DATA 

ZH 

1910 

DATA 

OY 

1920 

DATA 

DQ 

1930 

DATA 

MH 

1940 

DATA 

RF 

1950 

DATA 

IN 

1960 

DATA 

MN 

1970 

DATA 

WO 

1980 

DATA 

EL 

1990 

DATA 

YU 

2000 

DATA 

LH 

2010 

DATA 

XQ 

2020 

DATA 

FW 

2030 

DATA 

SD 

2040 

DATA 

RF 

2050 

DATA 

RF 

2060 

DATA 

PX 

2070 

DATA 

JC 

2080 

DATA 

Al 

2090 

DATA 

KY 

2100 

DATA 

TJ 

2110 

DATA 

PS 

2120 

DATA 

SD 

2130 

DATA 

YA 

2140 

DATA 

XK 

2150 

DATA 

FK 

2160 

DATA 

SB 

2170 

DATA 

PL 

2180 

DATA 

ZB 

2190 

DATA 

NR 

2200 

DATA 

IK 

2210 

DATA 

GU 

2220 

DATA 

LX 

2230 

DATA 

AT 

2240 

DATA 

CD 

2250 

DATA 

ZK 

2260 

DATA 

VX 

2270 

DATA 

WC 

2280 

DATA 

QS 

2290 

DATA 


05b01ca5800aa8b9a0878dbf 82 
b9a1878dc08220be82b074 £039 
8580209385b06ba000a5809183 
e001f00ac8a5d49183c8a5d591 
838al8658385839002e6842041 
83900ca900858ea90c20a5844c 
7284 209384a4f2blf 3c99bf003 
c8d0f7c8981865f385f39002e6 
£4a5f4c5959006a5f3c594b016 
adfC02r9f fd0034c7c8220fdf 2 
a90b20a584a900858e60209a84 
c91bf0rf 4cfe82a002b95088aa 
e8e01ad002a2108a995088c910 
d0058810ea38601860a9ac8d85 
83a9888d8683a9008582202484 
a903b039a2008e048aa582c90£ 
d0023860a4f220ad83dd84 83 f0 
038d048ae8c8e003d0efa90318 
6d85838d85839003ee8683e682 
ad048ad0cb84£2a5821860blf3 
c9619006c97bb002295 f 60a82a 
2a2a2a2903aa98299fld49fb60 
202484c924d00be6f220e48390 
0CC6 f238602000d8b0f 720d2d9 
60a00084d5 84d4a4f2a20020ad 
83c9309025c93a900dc94190ld 
c947b01938e937d00338e93006 
d426d518e8e004d0f605d485d4 
C8d0d2c4f2£00484f218603860 
a4£288c8bl£3c99bf0£4c920f0 
f r >84 £ 21860ae£ f 89cad00dac01 
8ab931884980993188a2148e£f 
894c62e4a904d002a908a2109d 
4a03209c81a9039d4203a9809d 
48039d4b03a9009d49034c56e4 
a210a90c9d42034c56e4a9809d 
4403a9059d4503a9059d4203a9 
809d48034c56e4a6f3a4f44c42 
c6482093846820a5844c£df20a 
a8b9b887aab9b987a82042c685 
8d60a99b4cb0f2686860202484 
a906b024a200a4 £2bl£3c99bf0 
0d9de289e8c8e006£004c920d0 
eda9209de289e8e007d0f6a200 
186018a20060a5d5d057a5d4c9 
10b05Ic902904da2011860a5d5 
d04 5a4d4 f04Ic009b03d88980a 
0a0a0aa2011860a90ld002a941 
a2031860a908a48ec0201023a5 
d5d01da5d499a000a5f 39 9a100 
a5£499a200a5f299a300c8c8c8 
C8848e4c7585a9073860a909a4 
8ef0f8b99c00aaca8a999c00£0 
12b99d0085 f 3b99e0085 f 4b99 f 
0085f 2a8d00688888888848ea2 
0018608490a5d48d528aa5d58d 
538a4c7585a5d4858ba5d5858c 
4c7585a9008591202484c92cf0 
08a5C0059185801860e6£28a48 
205d8368aaa902900160a903a4 
82c00c9055a58238e90c8582£0 
3da903a480C00?9044c010b040 
a582c903d02b20248448c93ed0 
02e6f220c983b02868c93od00d 
a58bl865d485d4a58c65d585d5 
a5d4858ba5d5858ca203a482b9 
d988059185914c978568a90538 
60ad038a£073205384306ba583 
38e5948592a584e5958593a590 
f039a9069d4803a9009d4903a9 
509d4403a98a9d4503a592186d 
528a8d548aa5936d538a8d558a 
ac548ad003ce558a888c548aa9 
0b9d42032056e4a90b9d4203a5 
929d4803a5939d4903a5949d44 
03a5959d45032056e430034c72 


JX 

2300 

DATA 

KU 

2310 

DATA 

CO 

2320 

DATA 

DP 

2330 

DATA 

XE 

2340 

DATA 

XT 

2350 

DATA 

WF 

2360 

DATA 

LU 

2370 

DATA 

LO 

2380 

DATA 

MA 

2390 

DATA 

RV 

2400 

DATA 

FS 

2410 

DATA 

MO 

2420 

DATA 

TQ 

2430 

DATA 

FG 

2440 

DATA 

IW 

2450 

DATA 

YP 

2460 

DATA 

OV 

2470 

DATA 

ME 

2480 

DATA 

VN 

2490 

DATA 

PE 

2500 

DATA 

FR 

2510 

DATA 

LC 

2520 

DATA 

LN 

2530 

DATA 

KN 

2540 

DATA 

PP 

2550 

DATA 

YZ 

2560 

DATA 

BT 

2570 

DATA 

OM 

2580 

DATA 

BW 

2590 

DATA 

HR 

2600 

DATA 

LI 

2610 

DATA 

WV 

2620 

DATA 

ZJ 

2630 

DATA 

BZ 

2640 

DATA 

EB 

2650 

DATA 

ZC 

2660 

DATA 

VR 

2670 

DATA 

AN 

2680 

DATA 

SR 

2690 

DATA 

BU 

2700 

DATA 

LY 

2710 

DATA 

FP 

2720 

DATA 

BI 

2730 

DATA 

JG 

2740 

DATA 

JK 

2750 

DATA 

OZ 

2760 

DATA 

LS 

2770 

DATA 

PI 

2780 

DATA 

WU 

2790 

DATA 

KV 

2800 

DATA 

QT 

2810 

DATA 

QX 

2820 

DATA 

JX 

2830 

DATA 

XW 

2840 

DATA 

SJ 

2850 

DATA 

BM 

2860 

DATA 

AZ 

2870 

DATA 

WG 

2880 

DATA 

KN 

2890 

DATA 

DL 

2900 

DATA 

TQ 

2910 

DATA 

LH 

2920 

DATA 

UL 

2930 

DATA 

TI 

2940 

DATA 

GF 

2950 

DATA 

WE 

2960 

DATA 

MG 

2970 

DATA 

GZ 

2980 

DATA 

SD 

2990 

DATA 

ML 

3000 

DATA 

YZ 

3010 

DATA 

ZW 

3020 

DATA 

BO 

3030 

DATA 

IX 

3040 

DATA 

BG 

3050 

DATA 


844c948120538430f8a5948585 
a5958586a590f016a2dca08920 
4e87ad538a203187ad528a2031 
87206e87a2e2a089206b87a000 
bl8548a68łe003d005204a87d0 
07a2f6a089204e8768203187a0 
00bl85290f£02fc901f006bl85 
2940f025a2£aa089204e87a002 
bl85203187a001bl85203187a5 
8518690285859002e686206787 
d007206787c6811003206e87e6 
85d002e686a585c583a586e584 
d094a581c903f00320b5844c72 
844829f04a4a4a4a203e876829 
0f186930c93a900269264c7487 
a2eea08986878488a0009848bl 
8748297f20748768aa68a8c88a 
10ee60a929d009204e87a90385 
81a99ba20b8e5203a2008e5803 
8e5903a2102056e4100568684c 
948160e580228105815b8lcd81 
3c81498lb28104821386ba84bd 
84e98479851f 854c85ed84£ f 84 
158519858885e888fd880d891a 
892c893e895089648982899689 
a289ae89c38970707042f58702 
021042dc870202020202020202 
02020202020202020202020241 
d28780aleef4e9e380al£3f3e5 
ede2ece5f 280968e938080alf5 
f4eff29a80ad8ea3faelf2eee£ 
f 4e1800000000000002e617 a7 7 
6l00706c696b7500241a000000 
00000000000000000000000000 
0000000000000032 6£7a6b617a 
1300101010000034727962la00 
2f 64637a79740000002b6£64la 
00312100000b0e14209blb3c7e 
443a2020202020202020202020 
20204443542£64637a79740000 
3a61706973000000312100002e 
352d0044313a2a2e2a20646c69 
737420454c4444454652454d4f 
52475245504e5854534554454d 
504a4d504a5642414452444c49 
4853435653434c4d5380102040 
0000000101000101010101427b 
11642077656al76369612f7779 
6a176369619b506c696b207a62 
797420647b7567699b427bl164 
20736b7b61646e699b4e69656c 
6567616c6e7920726f7a6b617a 
9b5a7b7920666f726d61742074 
656b7374759b4f637a656b6977 
616e61206c69637a62619b4£ 63 
7a656b6977616e61206574796b 
696574619b50727a656b726£63 
7a6f6e79207a616b7265732070 
6172616d657472759b50727a65 
70657b6e69656e6965?073746f 
73759b4e58542062657a205245 
509b5245502062657a204e5854 
9b4173656d626c61636a612070 
727a657277616e619b506c696b 
2077796e696b6f7779207a6279 
7420640c7567699b206£726720 
a42020202020202065717520aa 
20647461206228a42c6228a429 
2c6128a4140000000000001044 
4d50515657587bf f00003c667e 
603c060cl8007c666666000cl8 
003c66663c0000003c063e663e 
0c0c18003c60603c000c183e60 
3c06 7C000018007e0c307e0000 
3818łc38183c00f f f f00000000 
e002e 1020080 
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PRZYKŁADY ... 

Na Alkom zi nic c In inlbym pizrdsiawii dwa pr/Ykla 
(low< li.simgi źródłowe Pierwsza z mi li m mo|:i warim |.i 
na IimaI mieszania różnych irylx»w gr ilu /nu li Drugi 
/.as Jest po prosili przełożonym na |i z\k Aniii Asi nihil ra 
prograinrtii wyśwldlania dla irylm GRAPHK S0|/ wlu 
r/om iii Baslrrm) Polrraai samodzielna niall/i lyrli li 
Stingów! 


rem program przykiadowy nr i 
iem FKRAN MIESZANY 

oig $8000 

def etyk (Nowa etykieta: 
i ep 3 

emp 8 Ttadycyjne 24 puste linie 
nxt 

adr $f00 - adres pnr/ąt kowy dla lms >a 

tern z kolejnych 16 linii dane pobierane 
rem będą z początku kolejnych stron 
rem pamięci. Początek - $f00+$!00: 

rep 16 

set 15,lms >$100,hsc - ti yb GR.8 
nxt 

rem okno tekstowe. 

set 2,lms $4000,dli Pamięć ekranu ud $4000 
rep 9 

set 2,dl i - Razem 10 linii, w każdej 
przerwanie dli 
nxt 

set 14,lms $5000,dli 
rep 95 

set 14 - 96 linii w trybie 7+ 
nxt 

jvb $8000,dli - skok na początek 

end 


rem PROGRAM PRZYKbADOWY NR 2 
rem Ekran w trybie GRAPHICS 0 

org $9c20 adres początkowy 
rep 3 

emp 8 24 linie puste 

nxt 

set 2,lms S9c40 pamięć ekranu od $9c40 
rep 23 

set 2 razem 24 linie obrazu 
nxt 

jvb $9c20 skok na początek 

end 


PROCENTY 

Olr/urialim kiedyś do meny jirogi lin Po jego u rui lin¬ 
ii i ii- ■ ■ 111 ni i kr mu uka/.alo su IMi isi wali co w wol 
nyill iluinai /i iim oznai /a Prus/r i/i k.u Pm/rk.ilrm 
win ufn o ik uli się uli wydarzyło Poczekałem (eszi ze 
Irmin be/ clcklu Wreszcie |x> pięt I u mimilneh uzna 
li iii /i program się /.awii sil pr/i iri z wi sii linii im iii /.i 
wikIii w\I ii żyli iii kimipuli i 

lakis c/as poz.niei nka/alo sii /i program ii n hi/|h> 
e/an.il norm dni il/.ialauii |h> pięciu mimilai li i d/.icsię- 
i ni sckamlacli Pu lun jhuii zaj n ym doświadczeniu 
pr/vji In su ua/Yw u pi wh n galmit k programów prngra 
mann ivpu pli asi w.ul Ir/yiam limdycznii [ki polsku) 

Tvpuw\ przi dsiawicid ligo gainilkn pr/i pisufe gem 
ralui zn ikow z pamięci ROM do RAM dla uzyskania 
|k lum li i li’kawvi'li i leklów 


CJ 

10 

Cii!) i 

= 5 7 3 44 :C’HB2 = 389 1 2 : N= 1 02 3 

H I 

20 

CHBA 

= 756:POKE 752,1 :1 IST 

SY 

30 

FOR 

1=0 TO N 

DC 

40 

POKE 

CHB2+1,PEEK(CHB1+1>*Z:Z=1-Z 

HJ 

50 

NF.XT 

I:POKF CHBA,CHB?/256 

NC 

60 

POKE 

752,0:ŁND 


Aby przckoiiiii użytkownika. zi jlriigram z\|i i czyni 
w swej pracy posięjiy 1 rirojxnin|ę dopisai wywułanii pro¬ 
cedury liilurmuląci | o slupniu zaawansowania prai 

OP 35 GOSUB 100 

Poniższa priKCtlura służy |aki> laki właśnie wskaźnik 
wykonania |>rai ik hloiiin j pę-ill w programie Zakłada 
ona, zi zmienną lii zadkową |csi I (z warioscia fxK-zalki>- 
wa 0 lub I) N zawiera warlosi końcową, zas K I Q$ 
nic są używani w głównym programie 

PU 100 ON KO0 GOTO 130:DIM QS(50):? 

FZ 110 QS="O":Q$(50l=”":QS(2i=Q$ 

HV 120 QS{25,25)=".":Q$(26i=y$(25| 

UH 130 ? INT{ 1/N* 100 i; ■"* “ :CHR$ (28 i 

TQ 140 K=25-INT{24*I/N| 

LP 150 ? CHRS{127);Q$(K,K+24-1);CHR$(28| 

ZJ 160 RETURN 

Teraz (K zywlsclc program wvkimu|c się nieco wolniej, 
ale pr/yna|mnlc| widać na co da sic wwkor/ysiat czas 
(K/cklwania nazlcwnlętlc na obiad i z\ może na dłuż¬ 
szy spacer? Jeżeli pęila w progratnit (jak w tym) w\ko¬ 
nnic się sdki luli tysiące razy wysiart/v zwykli- wywoły 
wai procedurę co klorys ra/. np 

MX 35 P=P+1:IF P>15 THEN P=0:GOSUB 100 


Janusz li. Wiśniewski 
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Kosika kula ośnilciśclan walce I wiele Innych inlrygu 
J^t yc-h l weiąga|ąe ye h pr Kluki w Inżynierskiej mvsll wę¬ 
gierskiego architekta zawładnęło parę lal temu całym 
światem Wyobraźnia przestrzenna doskonała pamięć 
spryt w palcach to tylko niektóre z walorów. Jaki? Ir/eha 
było posiadać, abv m<K przynajmniej częściowo ułożyć 
(cdną z lyc h brył 

Dwa nierozerwalne obwcxly dwie obręc ze wypc łnionc 
cKimlennyml elementami będą celem naszych zmagań 
Złowrogie moce po naciśnięciu "flre* iK-zlItosnlc niszczy 
panujący od wieków ład I harmonię naszego układu 

Czeka nas trudne zadank - musimy wszystko odbudo¬ 
wać. pr/vwr<K-lr pierwotna lorinę naszc-| struktury Gra 
składa się z trzeć h nle-.zależnyc h etapów o ro/nyc h sto- 
pnlae h trudności Mnie) zaradnym grac zom proponuję 
zmniejszenie wartości stałe*) TRD w linii 9 a wszystkim 
zyczę miłe) zabawy 

- - 


BI 

1 

REM 





SB 

2 

REM 

* 



* 

TI 

3 

REM 

* 

R U B I C O N 

1992 

* 

TB 

4 

REM 

* 



* 

YA 

5 

REM 

* 

autor- ALEKSANDER 

USIK 

* 

TD 

BO 

6 

7 

REM 

REM 

* 



* 


KH 8 REM 

OV 9 TR=40:REM TR-STOPIEN TRUDNOŚCI 
NT 10 GRAPHICS 0:GRAPHICS 18:ANTIC=PEEK(5 
60j +256*PEEK(561):POKE 559,PEEK(559>-3 

2 

Ob 20 RESTORĘ 30:FOR R=1 TO 5:READ A:POKE 
ANTIC+R-3,A:NEXT R 
EX 30 DATA 112,112,70,70,158 
NQ 40 POKE ANTIC+18,PEEK(ANTIC+18)-2:POKE 
560,PEEK(560}-2:POKE 559,PEEK(559)+32 
NC 50 GOSUB 350,GOSUB 540 

Rit 60 RESTORE 70: FOR R=0 TO 19 : READ A:POK 

E 40518+R,A:NEXT R 

DZ 70 DATA 0,50,117,162,233,163,111,46,0, 
0,98,121,14,0,111,108,111,117,115,0 
JD 80 REM START GAMĘ 

CC 90 POKE 764,255:GOSUB 490:GOSUB 790:PO 
KE PMOP+17 7,16+GAME:ZAP= 8 9 
YF 100 GOSUB 190:GOSUB 220:GOSUB 190:A=US 
R(1536,PMOP,PM,240S 

OQ 110 A=USR(1536,PM,PMOP,240):ST=STICK(0 
):GOSUB 140:IF PEEK(764)=28 THEN GOSUB 
350:GOTO 80 
LV 120 GOTO 110 

MT 130 GOTO 130 

KI 140 IF ST=7 THEN ADDD-ADD2 : SOUND 0,120 
,10,10:GOSUB 250 


EH 

DS 

ZP 

M 

UT 


SE 

ZA 

EA 

CH 


BE 


IX 

JR 

GO 


TS 

ZQ 

YF 

UQ 

BO 


YE 

ZK 

HP 

BP 

FZ 

GB 

HD 

PA 

CA 

TH 

rs 

BE 

rw 

FY 

OA 

DR 


KC 


IB 

WQ 

BY 

ŁV 


RA 

DO 

BI 

im 


IV 


TM 


150 IF ST*11 THEN ADDD=ADD2:SOUND 0,95 
,10,10:GOSUB 300 

160 IF ST=13 THEN ADDD=ADD1:SOUND 0,80 
,10,10:GOSUB 250 

170 IF ST=14 THEN ADDD=“ADD1 :SOUND 0,24 

1 10, 10:GOSUB 300 

180 SOUND 0,0,0,0:RETURN 

190 PAZ=PEEK(PM+ZAP):FOR S=0 TO 3:SOUN 

D 0,80+5*20,12,15:POKE PM+ZAP,0:FOR 0“ 

0 TO 100:NEXT Q 

200 SOUND 0,0,0,0:POKE PM+ZAP PAZ:NEXT 

S 

210 RETURN 

220 REM ZAMIESZANIE 

230 II STRIG{0 ) = 1 THEN POSITION 4,10:? 
»6;"press tire!":POSITION 4,10:? #6;“ 
”:GOTO 230 

240 FOR Z=1 TO TR:ST=INT(RND(0)*8+7):G 
OSUB 140:A=USR(1536,PM,PMOP,240):NEXT 
Z:RETURN 

250 REM RUCH W PRAWO 

260 IL=PEEK(ADDD):KP-PEEK(PMOP+PEEK(AD 

DD+IL)) 

270 FOR X=IL TO 2 STEP -1:NW : »PEEK(ADDD 
+X):ST=PEEKf ADDD+X-1):POKE (PMOP+NW),P 
EEK(PMOP+ST):NEXT X 
280 POKE (PMOP+PEEK{ADDD+1)),KP 

290 RETURN 

300 REM RUCH W LEWO 

310 IL=PEEK(ADDD):KL PEEK(PMOP+PEEK(AD 

DD+1)) 

320 FOR X=1 TO IL-1:NW= PEEK(ADDD+X):ST 
=PEEK(ADDD+X+1):POKE PMOP+NW,PEEK(PMOP 

+ST):NEXT X 

330 POKE (PMOP+PEEKfADDD+IL)),KL 

340 RETURN 

350 REM SZATA GRAFICZNA 

360 POSITION 0,0:? #6;” - 


370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


#6 

*6 

*6 

06 

06 

06 

06 

06 

#6 

06 

06 


G -* 
A -* 
M 

E -* 


480 PM=40560:PMOP=*39424:POKE 708,14:PO 
KE 709,11:POKE 710,8:POKE 711,5:RETURN 

490 POSITION 2,3:? #6;"prosze wybrać": 
POSITION 5,5:? #6;"zestaw !":POSITION 

5,8:? #6;" 1 . 2. 3." 

500 ZEST=PEEK(764):GAME=(ZEST-31)+2*(Z 
EST=30 >+3*(ZEST=26) 

510 IF GAME= s 0 THEN GOTO 500 
520 POSITION 5,10:? #6;"esc-exxtPOKE 
764,255 

530 FOR 1=1 TO 500 STEP 5:SOUND 0,1,12 
,15:NEXT I:SOUND 0,0,0,0:GOSUB 350:RET 

URM 

540 REM DATA 123 

550 POLD=155*256:RESTORE 580:11=0 

560 READ A:IF A<0 THEN GOTO 640 

570 POKE POLD+II,A:11=11+1:GOTO 560 

580 DATA 19,146,145,144,124,104,84,64, 

45,46,47,48,49,69,89,109,129,149,148,1 

47 

590 DATA 19,90,91,92,112,132,152,172,1 
91,190,189,188,187,167,147,127,107,87, 
88,89 

600 DATA 19,146,145,144,124,104,84,64, 
45,46,47,48,49,69,89,109,129,149,148,1 




















IG 610 DATA 19,90,91,9?,112,132,157,172,1 
91,190,189,188,187,167,147,127,107, 87 , 
88,89 

SS 620 DATA 20,105,85,66,46,46,47,48,49,6 
9,89,109,129,149,169,168,167,166,165,1 

46,125 

JG 630 DATA 24,90,91,9?,117,132,131,130,1 
29,128, 127,126, 125,174,17 1, 12 7,102,82, 
83,84,85,86,87,88,89,-1 
KL 640 KULD=156*256:RESTOKE 670:11=0 
DM 650 READ A:IF A<0 THKN GOTO 730 
BW 660 POKE KULD+tI,A:I1=11+1:GOTO 650 
PH 670 DATA 47,47,47,47,4 ,47,47,47,47,47 

,47,47,47,47,47,47,47,47,10 
XQ 680 DATA 10,10,10,10,10,10,10,10,10,10 
,10,10,10,10,10,10,10,10,47 
IL 690 DATA 175,175,175,176,175,175,176,'1 
75,175,47,47,47,47,47,47,4 ,47,47, 10 
GQ 700 DATA 138,138,118,138,138,138,118,1 
38,138,10,10,10,10,10,10,10,10,10,47 
UW 710 DATA 53,48,53,41,78,78,78,31,67,33 
,50,41,78,1,1,1,1,1,78,42 
GX 720 DATA 78,78,78,78,78,37,35,4I,46,45 
,37,42,33,52,78,78,78,78,78,48,78,78,7 
8,33,-1 

CM 7 30 REM MOVE A=USR( 1616,DO,Z,DL I 

740 RESTORE 750:FOR 1=1536 TO 1587:REA 
D A:POKE 1,A:NEXT 1 

BR 750 DATA 104,104,133,204,104,133,203,1 
04,133,206,104,133,205,104,133,208,104 
,133,207 

TT 760 DATA 166,208,240,16,160,0,177,205, 
145,203,200,208,249,230,204,230,206,20 
2,208,240,160,0,177,205 
CH 770 DATA 145,203,200,24,196,207,144,24 
6,96 

ŹT 780 RETURN 

LG 790 ADDl=POLD+40*(GAME=7)+80*(GAME=3): 

ADD2=ADD1+PEEK{ADD11+1 
KP 800 KULI=KULD+38*(GAMF=?)+76*(GAME=3): 
KUL?=KUL1+PEEK(ADD1) 

DA 810 WK1=PEEK(ADD1(- I :WK7=PFFK(ADD2)- 1 
ME 820 FOR W=0 TO WKlrPOKE (PM+PEEK(ADDl+ 
1+W)1,PEEK(KUL1+W):NEXT W 
QK 830 FOR W=0 TO WK2:POKE (PM+PEEK(ADD2+ 
1+W | ) , PEEK { KU1,?+W) : NEXT W 
EO 840 A=USR(1536,PMOP,PM,240) 

ZO 860 RETURN 
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C\U + ATARI Sianowi doskonała zabawki; na tłługlt 
zimowe wieczory w lyni lak/e na wlee/or wigilijny Za 
[>re/( illufę dziś Ranslwu kompulerowc aranżai je dwóch 
popularny: h kolyil 

Chciałbym przekazał pewna wskazówki, dla całkiem 
zi< Innych muzyków na początku najlepiej przyjął. ze 
osiem pozycji w pa ternie odpowiada jednej całej nucie 
izn ihv uzyskał |H*łna liutt; należy zosluwił po nltj słc- 
di m |)iisivcli pól w /miernie W len sposól) polani ii ixl 
jKiwiatl ija czicry |x>la ćwierć nucie dwa a ósemce 
jedno Korzyslająi z |x>yvvzszij mrlixły można w ilosr 
pros.iv sposoh przełożył na lyzyk CMC prawie każdy za 
pis nulowy 

Po wt/yianlu programu CMC przechodzimy do 
okienka instr: za |xmioca klawisza TAB W lvm okien 
ku przyporządkowujemy odpowiednie Insirunieniy nu 
merom pixłanvm |)rzv danej kolędzie Kio lubi i |X)lra- 
11 może lu poeksperymeiiiowae z własnymi brzmienia 
mi insi ni ni en niw 

Nasil pnie |)r/ei hodzlniy do okienka ptrn: I przepisu- 
jemy kolejno wszysikii patena/ 

Po wpisaniu osiainiego z tiit li przechodzimy przy 
poiuoi y Klawisz i TAB do okna song I wpisujemy 
dam ozu u zoili na wydruku jako song Ustawiamy 
odpowiednie lempo i wi Iskaniy kombinat Ji; klawiszy 
CONTROL‘P 

7. Zyi zi Iliami wesołyi h świai Bożego Narodzenia 
i szi zesliwego Nowego Roku 


Marek Pasek 
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Wykaz punktów sprzedających bieżące i archiwalne numery Tajemnic Atari. 
Drukiem pogrubionym zaznaczono miejsca, w których można równocześnie kupić 

legalne oprogramowanie L.K. AYALON 


DRZAJA 

Mirowska 6 Częstochowa 
MiCROMAN 

Plebiscytowa 31 Katowice 

Rynek 4 Rybnik 

DH HERMES Rybnik 

SUPERMARKET Sosnowiec 

Wo|ska Polskiego 14, 

Bielsko-Biała 

KRYMARYS 

Toruńska 63, Koło 

KSIĘGARNIA TECHNICZNA 

Podwale 4, Kraków 

BIT PLUS 

' ieżanowska 1, Kraków 
VIDEO CENTRUM 
Kościelna 5 Krynica Górska 
RETURN Studio Komputerowe 
Zamojska 25, Lublin 
POMAREX 
Bernardyńska 20 
Niecała 12, Lublin 
KSIĘGARNIA TECHNICZNA 


Komuny Paryskie| 5a, Łódź 
#TRACK# 

Reymonta 23 

Kołłątaja 11, Opole 

ZAKŁAD Usług Komputerowych 

Ogrody 11 a Ostrowiec Św. 

METRO COMPUTER 

Wierzbięcice 37 Poznań 

P.H. METRO 

Ratajczaka 31 Poznań 

STUDiO-SiX 

Rejtana 3, Przemyśl 

BAJT, Rejtana 33 Rzeszów 

DĄBI. Szopena, Rzeszów 

BARTEK Kościuszki Rzeszów 

DOMAR 

Zygmuntowska Rzeszów 
STEL - DOM 
Pomorska 7, Słupsk 
JOKER 

Mickiewicza 15, St. Wola 
KWANT Agencja Handlowa 


Żydowska 6, Tarnów 
SONIX Sp. z o. o. 

Rapackiego 3 
DT Centrum 

Rydla (Helios 2) Szczecin 
COMPUTER CENTER WARS 
Marszałkowska 104/122 
Warszawa 
ATARI STUDIO 
Gen. Abrahama 4, Warszawa 
O.K.W. ELEKTRONIKA 
Mokotowska 51/53, Warszawa 
OSKAR 

Grochowska 207 (Universam) 
Jana Pawła II58 (Maxim), 
fgańska 26 Warszawa 
TAL, Warszawa 
Grójecka 65a, Bracka 25 
PDT Wola, PDT Praga 
DOMAIN SOFT 
Kołłątaja 31, Wrocław 


COMAT 

Kniaziewicza 19 Wrocław 

KSIĘGARNIA STAROMIEJSKA 

Żeromskiego 16, Zielona Góra 

GAMĘ SOFT 

Francuska 52, Zielona Góra 

Zachęcamy właścicieli sklepów 
zainteresowanych sprzedażą 
pisma lub oprogramowania do 
kontaktu z wydawcą Tajemnic 
Atari, lub z LK. AVALON 
Najszybszy kontakt telefoniczny 
pod numer (17) 374-71 wew 
274,275 od 7:30 do 15:00. Ofe¬ 
rujemy korzystne warunki 
współpracy. Firmy bądź sklepy 
zainteresowane kolportażem 
gazet otrzymują je na zasadach 
komisowych, a ponadto ich ad¬ 
resy są drukowane w TA, co 
stanowi dobrą reklamę. 


L.K. AVALON 
skr. poczt. 46, Strzyżów 
proponuje: 

Filtry monitorowe siatkowe 

mono/kolor, 14 cali 190 000 

mono/kolor 14 cali, z uziemieniem 230 000 

Akcesoria 

rozgaięziacz komputer / antena 35 000 

pokrywy na ATARI XL lub XE 50.000 

taśma do drukarek STAR LC 10/20 60 000 

MICROPRINT (prod USA) 
umożliwiający podłączenie do ATARI 
dowolnej drukarki (CENTRONICS) 190 000 

dyskietka czyszcząca 5 25 50 000 

pudełka na dyskietki o pojemności- 
5 szt 25 000 

lOszt 30 000 

50 szt. 100 000 

100 szt 130 000 

Literatura 

Leksykon komp dla początkujących 25 000 

Słownik term i komunikatów komp 25 000 

Instrukcja ATARI 65 XE /130 XE 30 000 

Atari Basic dla dzieci 30 000 

Logo Atari 30 000 

Poznajemy komputer Atari XL/XE 30 000 

Mac 65 30 000 

Opisy gier na małe Atari 35 000 

Atari Basic 55 000 

Atari Logo 55 000 

Do łącznego zamówienia należy doliczyć 
koszt wysyłki (20.000 zł). W przypadku za¬ 
mówienia również oprogramowania z oferty 
na ostatniej stronie pisma, koszt wysyłki me 
jest doliczany Wszystkie ceny ważne są do 
ukazania się następnego numeru l A. 
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LOGI CAL PRODUCTS TRADE 

Rzeszów, Słowackiego 24/66 
teł. 374 81* w. 1216,223 
(wieżowiec z "Apteką Galicyjską", 7 piętro) 

polecamy sżeroki wybó komputerów 

IBM Pt 

ATARI ST, XL/XE 
MMODORE AMIGA, 64 
DRUKARKI STAR 

największa oferta 
LITERATURY FACHOWEJ 
AKCESORIÓW KOMPUTEROWYCH 

wiele pozycji 

ŁIOŁNCJONOWANEGO OPROGRAMOWANIA 

oferujemy towar sprawdzonej jakości 
po atrakcyjnych cenach 

MOŻLIWOŚĆ NEGOfcjACJI CEN ! ^ 
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STOP 


Zamówienia na kartach pocztov 
które powinny zawierać 
wyszczególnienie rodzaju •nośi 
(kaseta lub dysk) oraz dokład 
adres zamawiającego, 
prosimy kierować do 
l_K. AVALON 
•kr. poczt. 46 
" 38-100 Strzyżów 

Uregulowanie należności nastę 
przy odbiorze przesył!: 


Programy wydane przez I..K.AVALON 
na licencji ZEPPELIN GAM ES 

• BLINKVS SCARY SCIIOOI 

• CAVERNIA 
•MIRAX KORCE 

• NINJA COMMANDO 

• SPEEI) ACE 
•STACK UP 

• ZYBKX 


Opisy oraz krótkie recenzje w numerze 10/92 

Cena jednei gry 42 000 zt 


• A.D. 2044 cena 42 000 zJ 

gra przygodowa (na motywach filmu Seksmisja 

• AI)AX cena 43 000zt 

komnatowka misja zwiadowcy na planecie Adax 

• AUTOMAT cena 45 OOOzt 

PERKUSYJNY program użytkowy do tworze 

ma muzyczek' komputerowych obszerna instru¬ 
kcja obsługi 

• CAPTAIN GATIIER cena 39 000zt 

gra logiczna pierwsze plansze wydają się łatwe 

• ClIANGE cena 40 000 zł 

cos dla miłośników łamigłówek 

• CONSTEEEATION cena 40 000 zł 

gra ekonomiczna 

• CHAOS MUSIC cena 45 000 zł 

COMPOSER pakiet zawierający program do 

k o m po n o wa n i a moduł odtwarzający oraz wyczer 
pująca instrukcję 

• DAGOBAR cena 39 000 zł 

gra logiczna, kolejne przygody dzielnego Kapita¬ 
na Gathera 

• DARKNESS HOUR cena 42 000zt 

- gra komnatowa - z ostatniej chwili 

• DIGI DUCK cena 42 000 zł 

Robbo 9 Nie! Chodzący telewizor 

• GOLD HUNTER cena 40 000 zt 

gra przygodowa, poszukiwacz złota w akcji 

• HANSKLOSS cena 40 000 zł 

- gra przygodowo-zręcznościowa, poszukiwania 
planów tajnej brom w bunkrze Wolfschanze 

• KLĄTWA cena. 46.000 zł 

gra przygodowa, koncepcja i grafika podobna jak 
w A.O. 2044 

• KURS FIZYKI cena 46 000 zł 

program edukacyjny, dudnienia, załamanie i od 
bicie fali, efekt Dopplera 

• LASERMANIA cena 40 000 zt 

ROBBO KONSTRUKTOR efektowna gra 
logiczna oraz program użytkowy pozwalający na 
tworzenie własnych wersji gry ROBBO 

•loriens tomb cena 39 000 zl 

ekspedycja archeologiczna do grobowca faraona 
•MAJOR BRONX cena 39 000 zt 

- gra zręcznościowologiczna 

• MISJA. FRED cena: 40 OOOzt 

- zmagania komandosa w tajnej MISJI; 
wędrówka przez pełną niebezpieczeństw krainę 

• IWNTI IER cena. 45.000 zt 

- wielofunkcyjny edytor tekstów pozwalający druko¬ 
wać po polsku na wszystkich popularnych drukar¬ 
kach 

• PANI IIER + MICROPRINT 

cena 220000 zł 

• PIEKIEŁKO cena 40 OOOzt 

prawdziwie piekielija gra ale wciągająca 

• QUICK ASSEMBŁER cena 64 OOOzt 

zestaw do programowania w języku asemblera 
QA pakiet edytora asemblera > mini-debugera 
BUG HUNTER nowoczesny debuger 
całoekranowy 

XL FRIEND edytor tekslow tabela kodów ASCII. 
Zestaw procedur bibliotecznych 
Podręcznik zawierający krotki kurs programowa 
ma 

•ROBBO cena 30 000 zt 

- wspaniała gra zręcznosciowo logiczna 

• RUCU cena 39 OOOzt 

komputerowa kostka RUBIKA 

• SAPER cena 39 OOOzt 

gra logiczno zręcznościowa 

• SZPERACZ DYSKOWY cena 45 000 zl 

program użytkowy służący do obsługi szeroko pro 
jętych ojjeracjt dyskowych 

•THFJFTACTION cena 4 1 000 zl 

kosmiczny RIVER RAID dla łamaczy joyshekow 

• TRIX cena 39 000 zł 

wciągająca gra zręcznościowej ogiczna. 

• U 235 cena 39 000 zł 

krotka recenzja "rozkosz łamania głowy ' 

• UCZEŃ cena 42 000zl 

CZARNOKSIĘŻNIKA gra komnatowa 
przygody adepta czarnej magii. 

• UPIÓR cena 42 000 zt 

gra komnatowo labiryntowa, przygody śmiałka 
w zamku pełnym niebezpiecznych stworów 


Wymienione niżej programy me po 
wstały w naszei firmie. Zachęcamy 
jednak do ich zakupu 

• AR I EFAKI PRZODKÓW cena: 57.000 zł 

- ponad tOO różnorodnych komnal znakofmla gra¬ 
fika. płynna animacja 

• BANG! BANK! cena 42 000 zl 

strzelanina na Dzikim Zachodzie 

• BATT1E SHIPS cena 41 000 zł 

gra w statki * z komputerem 

• BERTY X cena. 4i oX) zł 

zmagania z wrogim komputerem 
na planecie Bertyx 

•DUCH, ROBAL cena 42OOOzt 

zeslaw dwóch gier labiryntowych 

•gallaiiad cena 42 000 zl 

gra komnatowa walka Tristana z podstępnym 

Magi m 

• GEOGRAF IA POLSKI cena 37 000 zt 

prosty program edukacyjny (klasa V i VI) 

• GEOGRAFIAŚWIATA cena 46OOOzt 

program edukacyjny (państwa, stolice, waluty itp) 
•HUMANOID cena 44 000zł 

gra zręcznościowo logiczna 

• I.Q. MASTER cena 42 000 zt 

gra zręcznosciowo logiczno-edukacyjna 

• KOLONY. cena 41 000 zt 

- gra ekonomiczna 

• KULT cena 44 000zl 

fiomysl jakby znany (ZYBEX) szybka akcja du¬ 
żo strzelania 

• MASTER IIF:AD cena: 44 000 zł 

gra logiczna z kilkunastominutową muzyką 

• MIECZE VALDGIRA cena 41 000 zł 

przygodowa gra fanlasy z doskon ryj muzyką 

• MONSTRUM cena: 42 000 zl 

- popularny "robal w nowej oprawie 

• MOZG PROCESOR cena 44 000 zl 

wznowienie znanej gry tekstowej 

• MUFF, DRUTT cena 42OOOzt 

zestaw dwóch gier zręcznościowych. 

• NEWWORDS cena 46OOOzt 

program edukacyjny kurs języka ngiebkiego. 
z instrukcja 

• OPERATION BLOOD cena 42 000 zl 

krwawe starcie z niezliczoną ilością przeciwników 
(Ojieration A/olf) 

• ORTOGRAFIA cena 41.000 zł 

program edukacyjn nauka połączona z dobrą 
zabawą 

• PONG cena 42.000 zł 

- gra zręcznościowa, 

• PROBLEM JASIA cena 42 000 zł 

puzzle ze zdjęciami jjopularnych aktorów. 

• PRZEMYTNIK cena42 000zl 

gra ekonomiczna. 

• RIOT cena 42OOOzt 

walki karate w cygańskiej dzielnicy 

• RODF:RIC cena:4t000zl 

przygody rycerza w starym zamczysku 

• SKARBNIK cena 42OOOzt 

- gra logiczna 

• SOUND1RACKER cena 42000 zl 

program muzyczny, wzorowany na Imienniku 

z Amigi 

• TACTIC cena 41 OOOzt 

- gra logiczno zręóznościowa 

• TANK§ cena: 42 000 zł 

- walka czołgów w labiryncie 

• THE CONVICTS cena 42 000 zł 

gra labiryntowa (podobna do ROBBO) 

• THINKER cena 42.000 zt 

dwie proste lecz ciekawe gry logiczne 

• VIDEOG RAPU cena 45 000 zl 

narzędzie do tworzenia czołówek filmów video 

• ZESTAWY GIER Z TA: 

1 Fac, QQ Robal Dalej Niż Słonce 

2 Heartlight Puzzłe. Oczko 

3 Odsiecz. Follow Klocki, Pustynna Burza 

Cena zestawu 30.000 zt 
Cena kompletu (3 zestawy) 75 000 zt 










